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ABSTRACT 



A debugger has been designed and implemented to debug MC68020 assembly 
language programs which run on an MC68020-based Educational Computer Board 
(ECB). The debugger consists of two physically separate modules and runs on both a 
Macintosh and on the ECB. The debugger and the ECB communicate via an RS232 
interface at a Baud rate of 9600. 

In addition to basic debugger commands for the MC68020, the debugger also 
supports commands which enable the user to examine or modify the MC6888 1 
Coprocessor’s registers. An important feature is that it is user-friendly. It utilizes 
pull-down menus, where the user can select and execute the desired command simply 
by clicking the mouse. This debugger and a LightspeedC compiler provides the user 
with an integrated environment, where he or she can edit, assemble and debug 
assembly language programs. 

Applications of this software tool, and the accompanying ECB, can be used for 
both research and teaching. For example, it can replace the current system that supports 
the Naval Postgraduate School course EC2800. 
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I. INTRODUCTION 



There has been a very rapid growth in the use of microprocessors. With the 
advent of physically smaller but functionally more capable and faster microprocessors, 
microprocessor systems, besides being cheap and practical, are becoming almost 
equivalent to the capability and speed of main-frame computers of the past. 
Considering all these reasons, a complete and thorough understanding of the capabilities 
of microprocessors and microcomputers is essential. A microprocessor software 
development system is a necessary part of this. 

The debugger created in this thesis study is software part of a complete 
MC68020 microprocessor development system. The hardware part is the MC68020 
based Educational Computer Board (ECB), which is developed by Tugcu[1989]. In fact, 
the development of the software and the hardware was done simultaneously. 

A debugger for the MC68000 (called Tutor Monitor [Ref. 1]), was created by the 
Motorola Company for training and operational use. As far as the execution of a user 
program is concerned, this debugger is capable of doing the same things which the 
Tutor Monitor can do. To be more accurate, the collection of commands provided in 
this debugger is a proper subset of the commands present in the Motorola’s Tutor 
Monitor. Since the announcement of the Motorola’s ECB, ten years ago, there have 
been significant improvements in microprocessor speed, instruction sets, etc. Also, the 
utilization of coprocessors has added more precision in scientific calculations. This 
debugger, which was designed to be used in debugging MC68000-MC68020 assembly 
language programs (for MC68020 instructions, see Ref. 2), is also capable of handling 
MC68881 Coprocessor-related instructions (for MC68881 instructions, see Ref. 3), 



< 



1 



thereby giving the user higher precision debug capabilities. This feature is not present 
in Tutor Monitor. 

Part of this debugger, the monitor, runs on the ECB and carries out the 
commands sent by the main program. The monitor program also includes 
communication routines. With the use of these two routines, serial communication is 
done in software. 

One of the advantages of this system is that it does not require an extra dumb 
terminal, which is needed for the Motorola’s ECB System. Thus, this debugger can be 
viewed as an up-to-date version of the Motorola’s debugger. 
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II. A GENERAL OVERVIEW OF DEBUGGERS AND ASSEMBLY LANGUAGE 



The goal of this chapter is to give a general background about assembly language 
and debuggers. Assuming that this debugger is used as a teaching aid in a 
microprocessor architecture course (e.g., EC2800 at the Naval Postgraduate School) and 
the student is a beginner in this area, the information contained in this chapter will 
serve as introduction. 

A. WHAT IS AN ASSEMBLY LANGUAGE ? 

An assembly language is a level of language between the machine language and 
high level language. Machine language consists of a series of binary digits which is the 
computer can interpret directly but is very hard for humans to use. In assembly 
language, each machine instruction is represented by a mnemonic, and there are no 
binary digits. For example, it is a lot easier to remember the words like MOVE, ADD, 
SUB, etc., than to remember a series of binary digits corresponding to these 
instructions. Essentially, assembly language is an English-like version of machine 
language, and there is a one-to-one correspondence between instructions in these two 
languages. 

In addition to representing the instructions by mnemonics, memory locations can 
also be given labels. In this way the assembler keeps track of the addresses rather than 
the programmer. 

With the design of the intelligent compilers, high level languages became more 
capable and more widely used. Meanwhile, assembly language became less practical 
and less important in comparison. High level languages are easier to learn and most 
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importantly, they are portable. On the other hand, assembly languages are not that 
simple and portable. They are heavily machine dependent. 

Despite the disadvantages mentioned above, assembly language is still used and 
has some advantages over high level languages. Assembly language presents all the 
available resources of the processor to the user. It allows more effective code 
(sometimes using less memory). 

1. Format of Assembly Language Programs 

Assembly language program statements can be considered to have four parts. 

• Label field 

• Opcode field 

• Operand field 

• Comment field 

As mentioned above, labels are used to refer to memory locations, as symbols 
rather than absolute addresses. Labels, usually start in the first column. Depending on 
the assembler, most labels are followed by a 

The opcode field contains the mnemonic for the instruction to be executed. Also, 
assembler directives such as DC (Define Constant), DB (Define Byte), etc., can be 
included in this field. 

The operand field contains the source and destination locations which will take 
part in the execution of that instruction. They can be registers or memory locations. 

The comment field serves as a place where the programmer can explain his 
program. Comments are especially helpful in assembly language programs, since such 
programs are substantially more difficult to understand than high level languages. 
Without comments, it may not even be possible to understand another programmer’s 
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assembly language program. For these reasons, an assembly language programmer 
should have the habit of writing down comments. 

Two sample assembly language programs are given in Appendix G. Anything 
preceded by a semicolon is considered to be a comment, which is ignored by the 
assembler. Sample program #1, copies the elements of an array of bytes A[5] to an 
array B[5]. When this program is assembled, a listing file is obtained, which is given in 
Appendix G. There are two more fields in the listing file. These fields are introduced 
by the assembler. The first shows the addresses and the second field shows the 
hexadecimal representation of the machine code corresponding to the instructions. By 
looking at the address field, the user can easily figure out how many bytes of code is 
produced by each mnemonic instruction. Sample program #2 serves as an example of 
coprocessor instructions. 

B. WHAT IS A DEBUGGER ? 

Debuggers are software tools which help in developing and testing programs. 
These programs might be written in assembly language or in a high level language. 

The debugger, created in this thesis study, is designed and implemented to debug 
MC68020 assembly language programs. By using this debugger, the user can create his 
assembly language program, assemble it, download it to ECB, and run it. He can also 
disassemble his code (Disassemble means the hexadecimal representation of memory 
contents are converted into corresponding mnemonic instructions), display or modify 
the memory or register contents. In short, he can control the execution of his program. 

As an example, let us take the sample program #1 (see Appendix G) and further 
let us assume that the user sets a Breakpoint at address $001A (Dollar sign indicates a 
hexadecimal number) which is the label LOOP. The user also sets the program counter 
to $000A which is the beginning address of his program. When he starts to run his 
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program, each time the breakpoint is reached, execution will stop and control is given 
to the debugger. He will be able to see the various register and memory contents. At 
this step he can make some memory or register modifications or he can continue 
without any change. On the other hand, if the user chooses to Trace Branch he will 
be able to see the same kind of information as many times as a branch is indeed taken. 

Another choice may be setting a breakpoint at address $0024 which is the end of 
user program. If the user does not select any Trace option, he will see the information 
only once, at the end of execution of his program, skipping the intermediate parts. With 
the selection of a Trace option or by setting breakpoints and breakcounts or just by 
removing the present breakpoints, the user can have a variety of levels of control when 
executing his program. 

More information about the usage and capabilities of this debugger can be 
obtained from Appendix F. 
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ID. DESIGN AND IMPLEMENTATION OF THE DEBUGGER 



This chapter gives a brief description about the design considerations and 
implementation of this debugger. More detailed information can be obtained from the 
appendices which are referenced, when necessary, throughout the chapter. 

A. DESIGN OBJECTIVES 

The design goals are listed below: 

• This debugger should be user-friendly. 

• It should be capable of supporting essential debugger commands. 

• It should also support MC6888 1 Coprocessor related commands. 

An important aspect about user-friendliness is that the user should not be forced 
to memorize a number of commands. For this reason, it was decided to implement this 
debugger on a Macintosh computer. The pull-down menu capabilities of the Macintosh 
made it possible for this debugger to be a menu-driven software tool. 

On the other hand, only basic debugging commands were supported for reasons 
of simplicity. These commands are the most widely used. In general, these commands 
can be put in three categories: 

1. Memory display/modify commands 

2. Register (either microprocessor’s or its coprocessor’s) display/modify commands 

3. Control commands (e.g., setting a breakpoint, tracing, etc.) 

After determining the design objectives, it was further decided to design the 
debugger as two separate modules. This was an inevitable result of the fact that this 
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debugger is to be used in debugging assembly language programs which run on the 
ECB. As a result, the following two modules are implemented: 

• The main program which is mostly written in C and runs on a Macintosh. (Part 
of main program, which does the disassembly, is written in assembly language.) 

• The support program (monitor) which is written in assembly language and runs 
on the ECB. 

The distribution of the functions to the main program and the monitor program 
are described in the following two subsections. 

1. The Functions of the Main Program 

The functions provided by the main program are listed as follows: 

• Display menus through which the user interface is provided. 

• Alert the user if something goes wrong either in the Macintosh* or in the ECB . 

• Provide serial communication with the ECB, and with the printer at a Baud rate 
of 9600. 

2. The Functions of the Monitor Program 

The functions provided by monitor program can be listed as follows: 

• Provide serial communication with the Macintosh at a Baud rate of 9600. 

• Execute the command which is sent by the main program. 

• Provide an Abort option to the user. 



In the following two sections, a brief discussion is given of the design and 
implementation of these two modules. 
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B. MAIN PROGRAM 



The main program consists of functions contained in five different files. They are 
monitor.c, downloads, disasm.c, menu.c, and test.c. Except for the code written for the 
disassembler which is written in assembly language, the rest of the code is written in C 
Language. The source code for the disassembler in the Tutor Monitor [Ref. 1J is 
obtained from the Motorola Company, and then with the addition of some changes, it 
was adapted to the Macintosh. 

When the debugger is first run, it starts execution with an initialization step. The 
support of serial communication with ECB and serial printer, through the modem port, 
and serial printer port respectively, are done in downloads during the initialization 
process. The allocation of the required input and output buffers, the baud rate, etc., are 
all done on the entry to the program main(). 

In order to get the start and end addresses of the user program which is to be 
downloaded, test.c is run once. After that, main() displays the main menu, awaiting a 
user command which could be the execution of a single function such as Clearscreen or 
the selection of any particular menu. 

The choice of menus are listed below: 

1 . Options menu 

2. Registers menu 

3. Floating Point Registers menu 

4. Memory display menu 

5. Memory modify menu 

6. Go menu. 

The user can do different things in different menus. A flowchart for each menu is 
given in Appendix A. This gives a clear understanding about how the menus are 
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organized and how switching occurs between the menus. In addition to the information 
given in Appendix A, more information, such as creating the menus, implementing the 
user interface, etc., is given in Appendix C, where all the source code of the debugger 
are shown. 

C. MONITOR PROGRAM 

This is a support program for the main debugger which runs on the Macintosh. 
The monitor program is EPROM resident and runs both in RAM and ROM. While 
running, it occupies lower RAM address space. The addresses below 1000 hexadecimal 
are reserved for the monitor program. The user program should not reside in the 
memory locations which are reserved for the system. Even though the debugger runs on 
the Macintosh, the user assembly language program will run on the ECB. So, there has 
to be a way of reaching its internal registers, its memory etc. These are all ECB-related 
events. That is why the monitor program was implemented. The whole code is written 
assembly language. When the ECB is powered up, or it is Reset, the monitor program 
initializes the system and waits for a Macintosh command. During initialization phase, 
EPROM contents are copied to RAM, stack pointers are initialized, and program 
execution is switched to RAM. 

After the initialization phase, the monitor simply loops endlessly, awaiting a 
command from the Macintosh. To provide an efficient way of receiving commands and 
processing them, there is a certain protocol established between the ECB and the 
Macintosh (detailed information about this protocol is given in Appendix B). According 
to this protocol, each command has a distinct one-byte-long code. Upon receiving this 
code, its corresponding command (such as memory write/display, etc.) is executed. If 
the command is a Go command, program execution continues at a user-provided 
program counter value. Following the execution of the user command, the monitor 
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continues to loop, waiting for the next command. 

Among the functions of the monitor routine are providing communication with 
the Macintosh and supporting an Abort option. These two functions are briefly pointed 
out in the following two subsections. Furthermore, a detailed information about monitor 
program is given in Appendix C. 

1. Serial Communication in Software 

This debugger, as it was mentioned before, consists of two separate 
programs running on two different systems, namely the Macintosh and the ECB. This 
requires communication between the two. The protocol provided is typical of serial 
communication (at a Baud rate of 9600). As far as the ECB is concerned, this could be 
done in hardware, with the utilization of commercially available integrated circuits. The 
other possible choice was to do this in software (further information can be obtained 
from Ref. 4). The software approach was selected, slightly simplifying the hardware. 

On the Macintosh side, a modem port is used for serial communication with the 
ECB. The modem port is initialized to a Baud rate of 9600 by download. c. In order to 
send or receive bytes, already available system calls are utilized. On the ECB side, two 
routines are written to provide serial communication with the Macintosh. RUART and 
SUART are the routines which provide communication outside of the ECB. RUART 
receives the incoming bytes via the RS232 input. SUART, on the other hand, transmits 
bytes via the RS232 interface. Both routines work at a Baud rate of 9600. This Baud 
rate is established by a clock frequency of 16 MHz. When the frequency is halved, for 
instance, so is the Baud rate. 

When transmitting data at a Baud rate of 9600, the bits are 104.7 microseconds 
apart. Starting with the clock cycles needed to execute some of the instructions, an 
estimate of what instructions to use, how many times to loop in order to establish 
enough delay for a Baud rate of 9600, is made. Then, using the estimated values, an 
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approximate delay was obtained. Later on, by trial and error, enough delay is provided 
for a Baud rate of 9600. 

In order to receive the incoming bytes, the RS232 input has to be sampled once 
every 104.7 microseconds. In this way, every single bit can be sensed. Briefly, the 
reception of a byte is done as follows: After detecting the start bit, eight consecutive 
bits are received. The detection of two stop bits follows this. The eight bits constitute 
the byte to be received. In case the stop bit is not detected, a frame error occurs. This 
reveals that an error is made during data transmission. 

Sending of a byte on the other hand, starts with the transmission of the start bit. 
The transmission of eight bits follows this. It is provided that the duration of each bit 
is 104.7 microseconds. Finally the stop bits are sent. This action concludes the 
transmission of a single byte. 

A detailed information about the communication routines is given in Appendix D. 

2. Implementation of Abort Option 

Another thing to be noted here is the Abort option. An Abort occurs when 
the abort button on the ECB is pressed. The Abort button is pressed in order to recover 
from an undesired situation. This undesired situation can be an endless loop, for 
example. 

Pressing the Reset button also provides a recovery, but in this case all the register 
contents are lost, whereas pressing the Abort button causes a special Abort handler 
routine to execute which uploads all the current register contents to the Macintosh. As 
a result, the user can see all the register contents when he presses the Abort button. 
More information about Abort can be obtained from Appendix E. 
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IV. VALIDATION OF THE DEBUGGER 



As the modules which perform the functions of the debugger were being 
developed, each was tested for correctness. After providing serial communication 
between the Macintosh and the ECB, the download, memory display, and memory 
write functions were implemented and tested. These three functions were then used in 
developing other functions of the debugger on the ECB side. Until the completion of 
these functions, the HP1650A logic analyzer was the only tool. After implementing all 
debugger functions, the overall debugger was exhaustively tested. Five sets of test 
programs were written, where each set tested the following sections of code. 

• Communication between the Macintosh and the ECB. 

• Downloading a program from Macintosh to the ECB. 

• Displaying and modifying the ECB’s memory/registers. 

• Debugging MC68020 microprocessor instructions. 

• Debugging MC6888 1 coprocessor instructions. 

The instructions in this programs were selected such that they could test almost 
every possibility of a bug in the system (e.g., loss of stack space, modifying the 
memory incorrectly, etc.) 

In the following two sections of this chapter the functionality of this debugger 
will be demonstrated by showing the results of test programs in response to the 
execution of the debugger commands. Three different test programs are debugged under 
various levels of control. 
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A. DEBUGGING MC68020 INSTRUCTIONS 



In this section, a test program is demonstrated which contains various MC68020 
instructions. Various levels of control (such as tracing, setting a breakpoint, etc.) were 
used while running the test program. In addition to testing these capabilities, some 
other debugger functions, such as download, memory write, and memory display are 
tested. For testing purposes, test program #1 was written in the file test.c. This is 
shown in Figure 1. 



MOVE.L 


#0,D0; [DO] <- 0 


MOVE.L 


#1,D1; [Dl] <- 1 


MOVE.L 


#2,D2; [D2] <- 2 


MOVE.L 


#0,A0; [AO] <- 0 


MOVE.L 


#1,A1; [Al] <- 1 


MOVE.L 


#2,A2; [A2] <- 2 


MOVE.L 


#3,D3; [D3] <- 3 


MOVE.L 


#4,D4; [D4] <- 4 


MOVE.L 


#5,D5; [D5] <- 5 


LI: SUB.L 


#1,D5; [D5] <- [[D5J-1] 


BNE 


LI ; 


MOVEM.L 


D0-D2,-(SP); 


MOVEM.L 


(SP)+,D0-D2; 


ADD.L 


#2,D2; [D2] <- [[D2]+2] 


TRAP 


#15 i 



Figure 1 Test program #1 



This program is downloaded to the ECB, starting at the address $1000 (Dollar 
sign means hexadecimal). This is done by selecting the Download function in the main 
menu. The execution of the memory display command (displaying the memory 
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locations $1000 through $1032) shows the memory contents just before downloading 
the test program. In order to be able to execute the memory display command, the 
user needs to select the Memory Display Menu (see Figure 2). In Figure 2 the 
addresses From and To determines the portion of memory which is going to be 
displayed. 






=== :: == :: = Disolau Memoru • — ■ 


From 


00001000 




To 


00001032) 


( Cancel ) 


Size 


00000032 


’Display ] 




O Disassemble 



Figure 2 Memory Display Menu 



As a result of the execution of the memory display command the following was 



obtained. 

0 1 23454 7-89ABCDEF 

00001000 FF FF FF EF FF BF FE EF FF FF FF FB FF EF EF FB ... 

00001010 FF FF FF BF FF FB FF FE FF EF FF EB FE FF FF FF ... 

00001020 FF FF EF BF FF FF FF EF FF FF FF FF FF FF FF FE ... 

00001030 FF FF BF xx xx xx xx xx xx xx xx xx xx xx xx xx 



The execution of the download command modifies the above fnemory contents. The 



new memory contents are the user program. This can be seen by executing the 
memory display command. 
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t • 



0.1 2 
00001000 70 00 72 
00001010 00 01 24 
00001020 66 00 FF 
00001030 FF FF BF 



3 4 5 4 7 8? 
01 74 02 20 7C 00 00 
7 C 00 00 00 02 76 03 
FC 48 E7 EO 00 4C DF 

XX XX XX XX XX XX XX 



A B C D E F 
00 00 22 7C 00 00 
78 04 7A 05 53 85 
00 07 54 82 4E 4F 

XX XX XX XX XX XX 



p « r iti !•••• I 
• • $ 1 • • • .v.x.z.S. 

f ...H...L...T.NO 



In order to see that the test program was correctly loaded the, memory display 
command was executed with the disassemble option. The result is shown in Figure 3. 



00001000 


# 7000 


MOVEQ.l 


HO | DO 


00001002 


7201 


MOVEQ.L 


.HI ,01 


00001004 


7402 


MOVEQ.L 


H2,D2 


00001004 


207C00000000 


MOVE.L 


HO, A0 


0000100C 


227C0000000 1 


MOVE.L 


HI ,A1 


00001012 


247C00000002 


MOVE.L ' 


H2,A2 


00001018 


7603 


MOVEQ.L 


H3,D3 


0000 1 0 1 A • 


- * 7804 


MOVEQ.L 


H4,D4 


0000 1 0 1 c 


7A05 


MOVEQ.L 


H5 ,05 


0000 1 01 E 


5385 • 


• SUBQ.L 


Hi ,05 


00001020 


. 6600FFFC . 


BNE.L 


$001 0 1 E 


00001024 


48E7E000 


MOV EM. L 


00-02, -<A7) 


00001028 


4CDF0007 


MOV EM. L 


<A7)+,00-D2 


0000102C 


5482 


AODQ.L 


H2 , 02 


0000102E 


4E4F 


TRAP 


H 1 5 


00001030 


FFFF 


WORD 


$FFFF 


00001032 


BFBF 


' WORD 


tBFBF 



Figure 3 Disassembled test program #1 



Then various levels of control were used during the execution of the test 
program. The First three commands in the test program were executed with the 
selection of the Trace All option in Go menu. (Go menu is shown in Figure 4.) With 
the Trace All option, the program execution returns to the debugger after the execution 

I 

of every instruction. The debugger displays the result of each executed instruction. 

Setting the program counter value to $1000, selecting the Trace All option, and 
then clicking go causes the first instruction of the test program #1 to be executed. The 
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result is shown below. 



PC=0000 1 002 
SR=8004 
00=00000000 
D4=00000000 
A0=00000000 
A4=00000000 
00001002 



USP=000 1 F800 
01=00000000 
D5=00000000 
A1=00000000 
A5=00000000 
7201 



SSP=000 1 FCOO 
D2=00000000 
D6=00000000 
A2=00000000 
A6=00000000 



I SP=000 1 FFFC 
D3=00000000 
D7=00000000 
A3=00000000 
A7=0001F800 
MOVEQ.L HI, 01 



* File 



Functions 



<S> Goto 
o Call 



OOOOIOOO 



return to 



[ No Menu 



Breakpoints 
(Clear all ) 



00000000 


0000 


00000000 


0000 



00000000 


[Ilinna 


00000000 


0000 


00000000 


0000 



| Trace Oil 



O Display Steps 



( Cancel 






Figure 4 Go menu 



Clicking go once more gives the following: 



PC=00001004 

SR=8000 

• 00=00000000 

D4=00000000 

A0=00000000 

A4=00000000 

00001004 



USP=000 1 FB00 
01=00000001 
D5=00000000 
A1=00000000 
A5=00000000 
7402 



SSP=000 1 FCOO 
D2=00000000 
06=00000000 
A2=00000000 
A6=00000000 



ISP=0001FFFC 
03=00000000 
D7=00000000 
A3=00000000 
A7=0001FB00 
MOVEQ.L H2.D2 



And finally, clicking go once again, one more instruction is executed. 
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PC=0000 1 006 

SR=8000 USP=000 1 FB00 SSP=0001FC00 ISP=0001FFFC 

00=00000000 D1=0000000 1 D 2=00000002 D3=00000000 

04=00000000 D 5=00000000 D6=00000000 D7=00000000 

A0=00000000 A1=00000000 A2=00000000 A3=00000000 

A4=00000000 A 5=00000000 A6=00000000 A7=0001F800 

00001006 207C00000000 MOVE.L HO ,A0 

Before changing the level of control, looking at the outcomes of the previous 
three steps, it is seen that three instructions were executed correctly. That is, as a result 
of the MOVE instructions, the new contents of the data registers DO, Dl, and D2 are 
zero, one, and two respectively. The results of the instructions could also be seen by 
selecting the registers menu (in the main menu). The registers menu can also be 
displayed without going through the main menu. The format of the information which 
is displayed after the execution of the user program depends on the selection of the 
return to option in Go menu. The user has three choices. When return to is selected as 
Go menu, following the execution of user program, Go menu is displayed again. When 
return to is selected as No menu, no menu is displayed on the screen, instead register 
contents are displayed. (This is the format used in the previous three steps.) And as the 
third choice, return to can be selected as Registers menu. In this case, following the 
execution of user program, Registers menu is displayed on the screen. In order to see 
this, the last trace step is repeated with return to selected as Registers menu. The result 
is shown in Figure 5. 

In order to see the effect of the Trace Branch option, consider the following. 
With the Trace Branch, program execution returns to the debugger when a branch 
(either the unconditional branch BRA or one of the conditional brandies, such as BEQ, 
BNE, etc.) is taken. This means that the user will be able the see the results when 
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* 


File 


EQSi^IEGiS9 


* 




s s Registers t- 



USP 
SSP 
ISP 
PC 
SR 
UBR 
CflCR 
CRRR 
) SDFC 

Interrupt LeuelpT) 

[ Go | iQuit) ^ 

Figure 5 Registers menu 



D O Clear fill n 



i.i.i.iimiTiT.i 


00000000 


00000001 


00000000 


00000002 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


[ User 



Condition Codes 
OH ONOZ ou OC 



000IF800 

000IFC00 

OOOIFFFC 

00001006 

8000 

00000000 

00000000 

EF7D7RBF 

77~ 



there is a change on the flow of the program. In the test program #1 of Figure 1, there 
is a branch instruction BNE which executes five times. The expected result after one 
execution is that, when the registers are displayed on the screen, the program counter 
content is $101E, and data register D5 contains four (since it is loaded with five and is 
decremented by one before the branch). 



PC=0000 1 0 IE 

SR=<5000 USP=0 0 0 1 F80 0 SSP=000 1FC00 ISP=0001FFFC 
DO=OOOOO0OO 01=00000001 D 2=00000002 D3=00000003 

D 4=00000004 D 5=00000004 06=00000000 D7=00000000 

A0=00000000 A1=0000000 1 A2=00000002 A£=00000000 

A4=00000000 A 5=00000000 A6=00000000 A7=0001F800 

0000 1 0 1 E 5385 SUBQ.L tU',D5 
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The previous output was exactly the same as expected. Now the use and effect of 
a breakpoint is illustrated. In test program #1 of Figure 1 there are two instructions 
which perform a push onto the stack and a pop from the stack. After executing these 
instructions, the content of the stack pointer should remain unchanged. Before 
executing, the trace level was set to No Trace and a breakpoint was set to the address 
$1028. There are three stack pointers in the MC68020. They are: User Stack Pointer 
(USP), Supervisor Stack Pointer (SSP), and the Interrupt Stack Pointer (ISP). In Go 
menu the default stack pointer is the USP (the active stack pointer can be changed to 
another one by the user). So, the stack operations in the test program #1 will be in the 
User Stack. The instruction MOVEM.L D0-D2,-(SP) will push the registers DO, Dl, D2 
onto the stack. At the breakpoint the displayed USP content is expected to be 12 less 
than its original value (as a result of the pushes onto the stack). And also the program 
counter should point to the instruction at the breakpoint address. The following output 
was obtained after this step. By examining the register contents, it was verified that the 
result is correct. 

PC=00001 028 

SR=0004 USP=Q00 1 F7F4 SSP=0001FC00 1SP=0001FFFC 
D0=00000000 D1=0000000 1 02=00000002 D3=00000003 

04=00000004 D5=00000000 D8=00000000 D7=00000000 

A0=00000000 A1=0000000 1 A2=00000002 A3=00000000 

A4=000000Q0 A 5=00000000 A8=00000000 A7=0001F7F4 

00001028 4CDF0007 MOVEM.L <A7)+,D0-D2 

At this point, the use of the memory display command (of memory locations 
$1F7E0 through S1F7FF) shows the new stack contents. 



» 



0 1 23456787ABCDEF 
0001F7E0 FF FF FF FF FF FF FF FF FF FF F7 DF FF FF FF D7 
0001F7F0 FF FF DF FF 00 00 00 00 00 00 00 01 00 00 00 02 
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The underlined part of the previous output shows that the contents of data 
registers DO, Dl, D2 are pushed on to the stack. The longword (four bytes) at the 
address $1F7F4 contains die content of DO, the next longword (at the address $1F7F8) 
contains the content of Dl, and the longword at the address S1F7FC contains the 
content of D2. This current stack content can be changed with the use of the memory 
write command. In order to be able to execute the memory write command, the user 
needs to select the Memory Write Menu in the main menu. This menu is shown in 
Figure 6. 



Functions 



UJrite Memory 



Location 


Contents 


00001 F7F4 


00001989 


O Bgte 


0 Increment 


O LUord 


O No Change 


0 Long 


O Decrement 


0 Derify 


1 Quit | 



Figure 6 Memory write menu 



By execudng the memory write command (writing $00001989 to the address $1F7F4), 
and, following that, executing a memory display command, the 3tack contents become: 



0 1 23454789ABCDEF 
0001F7E0 FF FF FF FF FF FF FF FF FF FF F7 DF FF FF FF D7 
0001 F7F0 FF FF DF FF 00 00 1? 8? 00 00 00 01 00 00 00 02 
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This last execution shows the effect of the memory write command. Up to this 
point the test program has been executed either by tracing or by setting a breakpoint. 
If there are no trace or breakpoints in the program, execution returns to the debugger 
when the final instruction (Trap #15) is encountered. In order to test this, breakpoints 
were removed and No Trace option was selected before clicking go. 

PC=0000102E 

S R= 0000 USP=0001F800 SSP=0001FC00 ISP=000 1FFFC 

=00=00000000 01=00000001 D 2=00000004 D3=00000003 

D4=00000004 D 5=00000000 D6=00000000 D7=0000000Q 

A0=00000000 A1=0000000 1 A2=00000002 A3=00000000 

A4=0Q000000 A 5=00 000000 A<4=00000000 A7=0001F800 

0000102E 4E4F TRAP H15 

As it is seen in the last output, the program execution is indeed returned to the 
debugger when the Trap #15 instruction was encountered. 

The following program (test program #2) is exactly the same as the test program 
which has already been described with the exception of Trap #15 instruction which is 
now replaced by an RTS instruction. As far as the execution of the user program is 
concerned, there are two modes in Go menu. They are: Goto and Call. Test program 
#1 was executed with the mode Goto (this is the default mode) selected in Go menu. 
Call option is provided in order to test die subroutines. When Call is selected as die 
operating mode, after the execution of the subroutine the program counter points to the 
beginning address of the subroutine just called (for more details see Appendix F). In 
order to illustrate the use of mode Call, test program #2 was written in the file test.c, 
the debugger was run and the program was downloaded to the ECB. Execution of a 
memory display command (displaying the memory locations $1000 through $1032) 
with the disassemble option displays test program #2 and verified the correctness of 
downloading. This is shown in Figure 7. 
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00001000 


7000 


MOVEQ.L 


HO, DO 


00001002 


7201 


MOVEQ.L 


HI ,D1 


00001004 


7402 


MOVEQ.L 


H2,D2 


00001006 


207C00000000 


MOVE . L 


HO ,40 


0000100C 


227C00000001 


MOVE . L 


HI ,41 


00001012 


247C00000002 


M0VE.L 


H2,42 


00001018 


7603 


MOVEQ.L 


H3,D3 


00001014 


7804 


MOVEQ.L 


H4,D4 


00001 0 1 c 


7405 


MOVEQ.L 


H5,D5 


0000 1 0 1 E 


5385 


SUBQ.L 


HI ,D5 


00001020 


6600FFFC. 


BNE.L 


$00101E 


00001024 


48E7E000 


M0VEM.L 


D0-D2 , -(47) 


00001028 


4CDF0007 


MOV EM. L 


(47)+ ,D0-D2 


0000102C 


5482 


4DDQ.L 


H2,D2 


0000102E 


4E75 


RTS 




00001030 


FFFF 


WORD 


SFFFF 


00001032 


FFBF 


WORD 


*FFBF 



Figure 7 Disassembled test program #2 



Before clicking go, the program counter value is set to $1000. The output after 
the execution is shown below. The program counter still points to $1000 after the 
execution of the test subroutine. 



PC=00001000 
SR=0000 
D0=0 0 000000 
04=00000004 
40=00000000 
A4=00000000 
00001000 



USP=000 1F800 
Dl=00000001 
D5=0 0000000 
41=00000001 
45=00000000 
7000 



SSP=00 0 1 FC0 0 
D 2= 00000004 
D6=00000Q00 
42=00000002 
46=00000000 



I SP=0 001 FFFC 
D3=0 0 000003 
D7=00000000 
43=00000000 
47=0001F800 
MOVEQ.L HO, DO 



B. DEBUGGING MC68881 INSTRUCTIONS 



In this section we consider the verification of coprocessor-related capabilities of 
the debugger. For this purpose, test program #3 was written. This test program contains 
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two coprocessor instructions and is shown in Figure 8. Prior to execution floating point 
register FP4 is assumed to contain a number X whose sine and cosine are to be 
computed. 



DC.W 


$F200; FSINCOSX.X FP4.FP5JFP6 


DC.W 


$12B6; 


DC.W 


$F23C; FMOVE.L #7,FP7 


DC.W 


$4380; 


DC.W 


$0000; 


DC.W 


$0007; 



Figure 8 Test program #3 



This program was written in test.c, the debugger was run, coprocessor option 
was selected in go menu, and test program was downloaded to the ECB. The result of 
executing the memory display command (disassembling the memory contents starting 
from $1000 and ending at $1014) is shown in Figure 9. Since the current disassembler 
is not able to disassemble coprocessor-related instructions, these unsupported 
instructions are displayed in their hexadecimal representation. In this test, 0.785375 was 
entered in the register FP4 as X (0.785375 radians corresponds to 45 degrees). 
Following tills, the program counter value was set to $1000, and go was clicked. The 
expected result is the sine of 45 degrees (which is nearly 0.707) in floating point 
register FP5, the cosine of 45 degrees in FP6 (which is also ’nearly 0.707), and of 
course 0.785375 in FP4. As a result of the second instruction, floating point register 
FP7 was supposed to contain seven. The outcome of this test run is shown in Figure 9 
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where the floating point registers menu is displayed. As it is seen in Figure 9 the result 
is exactly the same as it was expected. 



00001000 


F200 


WORD 


$F200 


00001002 


1 2B6 


WORD 


$12B6 


00001004 


F23C 


WORD 


$F23C 


00001006 


4380 


CHK.W 


DO , D1 


00001008 


00000007 


OR .8 


H7,D0 


0000100C 


4E4F 


•TRAP 


HI 5 


0000100E 


F206 


WORD 


$F206 


00001010 


4322 


WORD 


$4322 


00001012 


4E4F 


TRAP 


HI 5 


00001014 


00000002 


OR . B 


H2,D0 



Figure 9 Disassembled test program #3 



Floating Point Registers 



Sign 



Mantissa 



Sign Ehp 



0 

1 

2 

3 

4 

5 

6 
7 



+ 


mmrnMum 


+ 


000 


+ 


00000000000000000 


+ 


000 


+ 


00000000000000000 


+ 


000 


+ 


00000000000000000 


+ 


000 


+ 


78537500000000000 


- 


001 


+ 


707090402001441 38 


- 


001 


+ 


70712315999226049 


- 


001 


+ 


70000000000000000 


+ 


000 



Status 

in 



00000008 



00000000 



Control 



0000 



ON 02 01 ONflN 



o 


BSUN 


o 


SN0N 


o 


OPERR 


0 


0UFL 


o 


UNFL 


O 


OZ 


O 


INEH2 


O 


INEHI 




Quit 



Figure 10 Floating point registers menu 
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V. CONCLUSIONS AND RECOMMENDATIONS 



A. CONCLUSIONS 

The debugger written under the topic of this thesis study can be considered as an 
up-to-date version of the Motorola’s debugger, Tutor, which was in wide use for a long 
time. This debugger, together with the MC68020 based ECB, constitutes a very handy 
tool for students and for researchers. When compared to the Motorola’s debugger, it has 
some advantages and some disadvantages. 

The advantages are: 

• It can support MC68020 state-of-the-art microprocessors rather than MC68000. It 
can handle Coprocessor instructions. 

• The user does not have to memorize some debugger commands, using pull-down 
menus, it is easier to learn and easier to use. 

• No dumb terminal is needed as part of the debugger. Instead the Macintosh is 
utilized as an intelligent front end. 



The disadvantages are: 



• Fewer debugger commands are supported compared to the Motorola’s debugger. 

• Since this debugger communicates with ECB via RS232 interface, which takes 
some amount of time, it is somewhat slower than the Motorola’s debugger. 

B. FUTURE WORK 

As was mentioned before, part of the debugger resides in EPROM and runs on 
ECB. It is called the monitor program. In monitor, only a limited number of exceptions 
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could be supported due to limited amount of time for this thesis study. The exceptions 
which have associated exception handler routines are: Reset, Privilege Violation, Level 
4 and Level 6 Autovectored Interrupts, Trace and Trap #15 (for more information about 
exceptions, see section 6 in Ref. 2). The other exception vector entries are loaded with 
the address of a short routine (STACKFRAME), which does nothing but arrange the 
stack. This prevents the loss of some stack space and system lock. As a future study, 
the corresponding exception handlers can be written for the yet unsupported exceptions. 

By selecting Disassemble option, the desired memory locations can be 
disassembled and displayed on the screen. But the disassembly routine handles only 
MC68000 instructions. MC68020 instructions are not supported. They are displayed in 
their hexadecimal form. As a future work, with some additions to the disassembly 
routine, the disassembly of MC68020 instructions can be supported. 

As another improvement to this debugger, some more debugger commands can be 
supported, which enable the user to Fill a Block of Memory, Move a Block of 
Memory or a Search a Block of Memory. 

In the current version of this debugger, the program to be downloaded has to 
exist in a single file, test.c. It may be very beneficial if the user is given the option of 
downloading the program in any one of different files. This could not be done because 
current version of LightspeedC did not allow it. 

This debugger has the capability of providing the user a hardcopy option. But it 
works only with Imagewriter serial printer. It will be very practical if a variety of 
Macintosh compatible printers can be included in a menu, where the user can select 
which one to use. 
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APPENDIX A: FLOWCHARTS FOR THE DEBUGGER 



i - flowchart Fon main menu 
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2- FLOWCHART FOR REGISTERS MENU 
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3- FLOWCHART FOR FLOATING POINT REGISTERS MENU 
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A- FLOWCHART FOR MEMORY DISPLAY MENU 
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5- FLOWCHART FOR MEMORY WRITE MENU 
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6- FLOWCHART FOR GO MENU 
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7- FLOWCHART FOR OPTIONS MENU 
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0- FLOWCHART FOR MONITOR PROGRAM 
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APPENDIX B: MACINTOSH-ECB INTERFACE PROTOCOLS 



EXECUTION OF MEMORY DISPLAY COMMAND 
MACINTOSH ECB 



Send memory_display_code . 

1- Main receives memory_display_code, 
and switches program execution to 
MEMORY_D I SPLAY Routine. 

Send the start_address (4 bytes) 
of the memory locations which are 
to be displayed. 

2- Receive the start_address (4 bytes) 

Send byte_count (1 byte) which is 
the number_of_bytes to be 
displayed . 

3- Receive byte_count (1 byte) . 

4- Read from memory locations, 
starting from start_address, and 
send them to Macintosh, one-by-one . 
Meanwhile calculate the checksum 
byte. Checksum is calculated by 
EXORing the outgoing bytes. 

Receive memory contents (As many 
as byte_count bytes) . 

5- Send checksum byte. 

Receive checksum byte. 
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EXECUTION OF MEMORY WRITE COMMAND 



MACINTOSH 



ECB 



1- Send memory__modify__code . 

1- Main receives memory_modif y__code, 
and switches program execution to 
MEMORY_WRITE Routine . 

2- Send the operand__size (width) byte 
(1 byte) . 

2- Receive the operand__size (1 byte) . 

3- Send the address of the memory 
location to be modified (4 bytes) . 

3- Receive the address of the memory 
location to be modified (4 bytes) . 

4- Send new memory contents (1, 2 or 

4 bytes, depending on the width) . 

4- Receive new memory contents and 
write them into the memory locatio 
starting from memory__modif y start 
address . 



5- [If "verify” option is selected] 
Read from memory locations and sen 
them to the Macintosh. (As many as 
byte__count bytes) . 



5- [If "verify" option is selected] 
Receive new memory contents. 

(As many as byte_count bytes) . 
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EXECUTION OF DOWNLOAD COMMAND 



MACINTOSH 



ECB 



1- Send download code . 



2- Send the download_address . 
User program will be loaded 
starting from this address . 
(4 bytes) . 



3- Send the number_of_bytes to 
be downloaded. 

(2 bytes) . 



4- Send all the bytes which constitute 
the user program. 

Meanwhile calculate the checksum. 
(As many as number_of_bytes 
bytes will be sent) . 



5- Send the checksum byte . 
(1 byte) . 



1- Main receives download_code, and 
switches program execution to 
DOWNLOAD Routine . 



2- Receive the download_address . 
(4 bytes) . 



3- Receive the number_of_bytes . 
(2 bytes) . 



4- Receive user program, byte by byte. 
Meanwhile calculate the checksum. 
(As many as number_of_bytes 
bytes will be received) . 



5- Receive the checksum byte. (The 
one sent by the Macintosh) . 

(1 byte) . 



6- Receive MC68020 register contents. 
( 96 bytes) . 

[If "Coprocessor" is selected] 
Receive MC68881 register contents. 
(108 bytes) . 



6- Upload MC68020 register contents 
to Macintosh. (96 bytes) . 

[If "Coprocessor" is selected] 
Upload MC68881 register contents 
to Macintosh. (108 bytes) . 
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EXECUTION OF GO COMMAND 



MACINTOSH 



ECB 



1- Send g opcode . 

2- Send Display_Steps (1 byte) . 



1- Main receives go_code, and switches 
program execution to GO Routine. 

2- Receive Display_Steps (1 byte) . 



3- Send all the Break_Points, starting 
from Break_Point #0. (Four bytes 
per Break_Point, in total 20 bytes) . 

3- Receive Break_Point addresses. Four 

bytes per Break_Point . (20 bytes) . 

4- Send all the Break_Counts, starting 
from Break_Count #0. (Two bytes per 
Break_Count, in total 10 bytes). 

4- Receive Break_Counts . (Two bytes per 
Break_Count, in total 10 bytes) . 

5- Send MC68020 register contents. 

D0-D7, A0-A6 , and Control registers. 

(96 bytes) . 

5- Receive MC68020 register contents. 
D0-D7, A0-A6 , and Control registers. 
(96 bytes) . 

6- Send checksum byte (1 byte) . 

6- Receive checksum byte (1 byte) . 

7- [If "Coprocessor" is selected] 

Send Coprocessor register contents. 

7- [If "Coprocessor" is selected] 
Receive Coprocessor register 
contents. (108 bytes). 



8- Start the execution of user program. 
[When user program execution stops 
due to a "Trace", "Breakpoint", 
"Trap__15" , or "RTS".] 

Upload the most updated register 
contents . 

(96 bytes, if MC68881 is not 
selected) . 

(96+118 bytes, if MC68881 is 
selected) . 

8- Receive new register contents. 

(96 bytes, if MC68881 is not 
selected) . 

(96+118 bytes, if MC68881 is 
selected) . 
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APPENDIX C: SOURCE CODE OF THE DEBUGGER PROGRAMS 



A. SOURCE CODE OF MAIN PROGRAM 



i- Source code of download. c 

/* download. c */ 



♦define 


stoplO 


16384 


♦define 


stopl5 


((int) -32768) 


♦define 


stop20 


(-16384) 


♦define 


noParity 


0 


♦define 


oddParity 


4096 


♦define 


evenParity 


12288 


♦define 


data7 


1024 


♦define 


data8 


3072 


♦define 


baud300 


380 


♦define 


baud600 


189 


♦define 


baudl200 


94 


♦define 


baudl800 


62 


♦define 


baud2400 


46 


♦define 


baud3 600 


30 


♦define 


baud4 800 


22 


♦define 


baud7200 


14 


♦define 


baud9600 


10 


♦define 


activeFlag 


0x0001 


♦define 


changeFlag 


0x0002 


♦define 


btnState 


0x0080 


♦define 


cmdKey 


0x0100 


♦define 


shiftKey 


0x0200 


♦define 


alphaLock 


0x0400 


♦define 


opt ionKey 


0x0800 


♦define 


controlKey 


0x1000 


♦define 


charCodeMask 


OxOOOOOOFFL 



enum { 
enum { 
enum { 



enum { 
enum { 



applelD = 1, filelD, optID, widthID, incID }; 
quit Item =1 }; 

downltem = 1, Sbreakltem, nulllltem, regltem , Fregltem, 
null2Item, memitem, MemWitem, null3Item, 

Options, Dumpltem, null4 Item, clearltem, helpltem }; 
documentProc, dBoxProc, plainDBox, altDBoxProc, noGrowDocProc, 
rDocProc =16 }; 

fsCurPerm, fsRdPerm, fsWrPerm, fsRdWrPerm, fsRdWrShPerm }; 
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enum { 
enum { 

enum { 

typedef 

typedef 

typedef 



typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 



typedef 



typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 



typedef 

char 



fsAtMark, fsFromStart, fsFromLEOF, fsFromMark }; 

nullEvent, mouseDown, mouseUp, keyDown, keyUp, autoKey, updateEvt, 
diskEvt, activateEvt }; 

inDesk, inMenuBar, inSysWindow, inContent, inDrag, inGrow, 
inGoAway, inZoomln, inZoomOut } ; 
unsigned char Str255[256]; 

struct { char cumErrs,xOffSent, rdPend, wrPend, ctsHold, 
xOffHold ; } SerStaRec; 

struct { int menuID; int menuWidth, menuHeight ; long menuProc, 
enableFlags; Str255 menuData; } Menulnfo,* MenuPtr, 

* *MenuHandle ; 

char QDByte, *QDPtr, **QDHandle; 

struct { int top, left , bottom, right ; } Rect ; 

struct { QDPtr baseAddr; int rowBytes ; Rect bounds; } BitMap; 
struct { int rgnSize; RectrgnBBox; } Region,* RgnPtr, ** RgnHandle; 
unsigned char Pattern [8]; 
struct { int v, h; } Point ; 

enum { bold = 1, italic = 2, underline = 4, outline = 8, 
shadow = 16, condense = 32, extend = 64 } Style; 
struct { QDPtrtextProc; QDPtrlineProc; QDPtrrectProc; 

QDPt rrRectProc; QDPt rovalProc; QDPtrarcProc; 

QDPtrpolyProc; QDPtrrgnProc; QDPtrbitsProc; 

QDPt r comment P roc; QDPt rtxMeasProc; QDPtrgetPicProc; 
QDPtrputPicProc; } QDProcs,* QDProcsPtr; 
struct GrafPort { 

int device; BitMap portBits; Rect portRect; 

RgnHandle visRgn; RgnHandle clipRgn; Pattern bkPat; 

Pattern fillPat; Point pnLoc; Point pnSize; 

int pnMode; Pattern pnPat; int pnVis; 

int txFont; Style txFace; int txMode; 

int txSize; long spExtra; long fgColor; 

long bkColor; int colrBit; int patStretch; 

QDHandle picSave; QDHandle rgnSave; QDHandle 
QDProcsPtr grafProcs; } GrafPort, * GrafPtr; 
GrafPtrWindowPtr ; 
char * Ptr ; 
int (*ProcPtr) () ; 

intOsErr, OSErr; 

unsigned char * StringPtr,** StringHandle ; 
char SignedByte ; 
struct { 

struct QElem * qLink; int qType, ioTrap; Ptr ioCmdAddr; 
ProcPtr ioCompletion; OsErr ioResult; StringPtr ioNamePti 
int ioVRefNum, ioRefNum; SignedByte ioVersNum, ioPermssn; 
Ptr ioMisc, ioBuff er ; long ioReqCount, ioAct Count ; 
int ioPosMode; long ioPosOffset; 

} ioParam, IOParam ; 

struct EventRecord { int what; long message, when; 

Point where; int modifiers; } EventRecord; 
c, instring [255] , inbuf [3001] ,E_bytes [20] , fregs [20] [8] ; 
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char Que_buf [2000] , *Head, *Tail, *EndQue, *StartQue; 

char Display Steps , ReturnTo=2 , ErrorFlag=0x00, CameFmGo=0 ; 

char prnstring [128] , prninbuf [3001] , prnoutbuf [2500] , clrscn; 

char ManSign [ 8 ] , ExpSign [ 8] , Fbuf [12], Ref Scrn, OurEvent=0, Reach=l ; 

int ByteCount , LastLocCount , scrollsize, LocCount , BreakTimes [ 5 ] , Clear; 

long registers [24 ] , f cregs [3] , Breaks [5] , from, to, at; 

SerStaRec SerRec ; 

WindowPtr Di splay Window; 

Rect windowBounds , myRect , ClrRect ; 

RgnHandle myRgn; 

ioParam pbin, pbout , prnbout , prnbin; 

MenuHandle appleMenu, fileMenu, optionMenu; 



extern 

extern 

extern 

extern 

extern 

pascal 

pascal 

pascal 

extern 

extern 

extern 

main ( ) { 

int i, j; 



void Error (char *,char *,char *,char *) ; 
void LastScreen (int) ; 
void printhex (long, int ) ; 
void DrawChar (char ) ; 

GrafPtr thePort; 

MenuHandle NewMenu ( ) ; 

WindowPtr NewWindow() ; 

RgnHandle NewRgn ( ) ; 

BitMapscreenBit s ; 

char *start , *end, Coprocessor, Experienced; 
int origin; 



/* Initialize Macintosh Environment */ 



MaxApplZone ( ) ; 

InitGraf (&thePort) ; 

InitFont s ( ) ; 

FlushEvent s ( OxFFFF , 0 ) ; 

InitWindows ( ) ; 

InitMenus ( ) ; 

TEInit () ; 

InitDialogs (0L) ; 

InitCursor ( ) ; 

/* Initialize Menus */ 

InsertMenu (appleMenu = NewMenu (applelD, "\p\024"), 0); 

InsertMenu ( f ileMenu = NewMenu ( filelD, n \pFile ,f ) , 0); 

InsertMenu (optionMenu = NewMenu (opt ID, f, \pFunct ions 11 ) , 0) ; 

DrawMenuBar ( ) ; 

AddResMenu (appleMenu, ' DRVR' ) ; 

AppendMenu (fileMenu, "XpQuit/Q") ; 

AppendMenu (optionMenu, M \pDownload/D ; Go . . . /G; - ( ; Registers . . . /R; Floating 
Regs . . . /F; - ( ; Memory Display . . . /M; MemoryWrite . . . /W; - ( ; 
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Options/0;Previous Screen/P Clear Screen/C; Help/H;"); 



/* Initialize Screen */ 

myRect . left=4; windowBounds . left=8; 
myRect . top=0; windowBounds .top=40; 

myRect. right = (windowBounds . right=screenBits .bounds . right-8) 
myRect . bottom = (windowBounds .bottom=screenBits . bounds . bottom- 

DisplayWindow = NewWindow (OL, & windowBounds, 

1 , noGrowDocProc, -1L, 1, 0); 

SetPort (DisplayWindow) ; 

MoveTo ( 4 , myRect . bottom-4 0) ; 

TextFont (4 ) ; 

TextSize (scrollsize=9) ; 

SetRectRgn (myRgn=NewRgn () , 0, 0, 0, 0) ; 

/* Initialize Printer Port */ 

prnbin . ioPermssn=f sRdPerm; 

prnbin . ioNamePtr= (StringPtr) "\p . Bln" ; 

prnbin . ioVRefNum = 0/ 

prnbin . ioVersNum= 0; 

prnbin . ioMisc = 0L; 

prnbin . ioBuffer = prnstring; 

PBOpen (&prnbin, 0) ; 

prnbout . ioPermssn=f sWrPerm; 

prnbout . ioNamePtr = ( StringPtr )" \p . BOut " ; 

prnbout . ioVRefNum = 0; 

prnbout . ioVersNum= 0; 

prnbout . ioMisc = 0L; 

PBOpen (&prnbout, 0) ; 

prnbout . ioPosMode = prnbin . ioPosMode = fsAtMark; 

prnbout . ioPosOff set = prnbin . ioPosOff set = 0; 

prnbin . ioRefNum = -8; 

prnbout . ioRefNum = -9; 

prnbout . ioBuffer = prnoutbuf; 

prnbout . ioReqCount = 1; 

SerReset (-8, baud9600+noParity+stop20+data8) ; 

SerReset (-9, baud9600+noParity+stopl0+data8) ; 

SerSetBuf (-8,prninbuf , 3000) ; 

/* Initialize Modem Port */ 

pbin . ioPermssn=f sRdPerm; 

pbin . ioNamePtr= (StringPtr) "\p.AIn"; 

pbin . ioVRefNum = 0; 

pbin . ioVersNum= 0; 

pbin. ioMisc = 0L; 

pbin . ioBuffer = instring; 

PBOpen (&pbin, 0) ; 



- 8 ; 

8 ) - 4 ; 

"\pDisplay", 
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pbout . ioPermssn=f sWrPerm; 

pbout . ioNamePtr = (StringPtr) "\p . AOut"; 

pbout . ioVRefNum = 0 ; 

pbout . ioVersNum= 0; 

pbout. ioMisc = 0L; 

PBOpen (&pbout, 0) ; 

pbout . ioPosMode = pbin . ioPosMode = fsAtMark; 

pbout . ioPosOff set = pbin . ioPosOff set = 0; 

pbin . ioRefNum = -6; 

pbout . ioRefNum = -7; 

pbout . ioBuffer = &c; 

pbout . ioReqCount = 1; 

SerReset (-6, baud9600+noParity+stop20+data8) ; 
SerReset (-7, baud9600+noParity+stop20+data8) ; 
SerSetBuf (-6, inbuf , 3000) ; 

for (i=0; i<20; i++) 

for ( j=0; j<8; j++) fregs[i] [j]='0'; 
for ( j=0; j<8; j++) { 

ManSign [ j] =' +' ; 

ExpSign [ j] =' +' ; 

} 

test () ; 

Head=Tail=&Que_buf [0] ; 

EndQue=&Que_buf [ 1999] ; 

*EndQue=0x00; 

StartQue=&Que_buf [ 0] ; 

Dassy ( ) ; 

for (; ; ) HandleEvent () ; 

} 



/ * HANDLE_EVENT ( ) 
function : 

- This function handles the events . 
arguments : 

- theEvent 
called by: 

- HandleEvent () /download . c 
calls : 

- HandleMouseDown () /download, c 

- Stop_n_Flush ( ) /download . c 

- doFunct ion () /menu . c 



*/ 

HandleEvent ( ) 

{ 

EventRecord theEvent; 
WindowPtr theWindow; 
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int windowCode, ok, i ; 

long 1; 

if (ReturnTo==0) doFunction (2) ; 
if (ReturnTo==l ) doFunction (4) ; 

SerStatus (-6,&SerRec) ; 
if (SerRec . cumErrs == 64 ) { 

Error ( "\pError in Transmission !", "\p Try Again "\p", "\p") ; 
Stop_n_Flush ( ) ; } /* Discard the input while looping outside menu. */ 

if ( ! Coprocessor) 

DisableItem(optionMenu, 5) ; 
else 

Enableltem (opt ionMenu, 5) ; 

HiliteMenu (0) ; 

SystemTask () ; 

if (ok = GetNextEvent (Oxffff, StheEvent) ) { 

switch (theEvent . what) { 

case mouseDown: HandleMouseDown (&theEvent) ; break; 
case keyDown: case autoKey: 

if ( (theEvent . modifiers & cmdKey) != 0) { 

HandleMenu (MenuKey ( (char) (theEvent .message & charCodeMask) ) ) ; 

) 

else 

send (c=theEvent .message & charCodeMask); 
break; 

case updateEvt : if(clrscn) { 

BeginUpdate (DisplayWindow) ; 

SetPort (DisplayWindow) ; EraseRect (&myRect) ; 

EndUpdate (DisplayWindow) ; 

} 

if(OurEvent) { 

if(IRefScrn) Clear=2; 

LastScreen (Clear) ; 

OurEvent=0 ; 

) break; 

case activateEvt : InvalRect (&DisplayWindow->portRect) ; 

break; 

} 

} 

} 



/ * HAND LE_MOU SE_D OWN ( ) 
function : 

- This function handles mouse down operations, 
arguments : 

- theEvent 
called by: 

- HandleEvent () /download . c 
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calls 



- None 



*/ 

HandleMouseDown (theEvent ) EventRecord *theEvent; 

{ 

WindowPtr theWindow; 

int windowCode = FindWindow (theEvent->where, &theWindow) ; 

switch (windowCode) { 

case inSysWindow: SystemClick (theEvent, theWindow); break; 
case inMenuBar: HandleMenu (MenuSelect (theEvent->where) ) ; break; 
case inGoAway: if (theWindow==DisplayWindow&&TrackGoAway (DisplayWindow, 

theEvent->where) ) HideWindow (DisplayWindow) ; break; 

} 

} 



/* HANDLE_MENU ( ) 
function : 

- This function handles menu operations, 
arguments : 

- mSelect 
called by: 

- HandleEvent () /download . c 

- HandleMouseDown () /download . c 

calls 

- doFunction ( ) /menu . c 

* 7 

HandleMenu (mSelect) long mSelect; 

{ 

int menuID = HiWord (mSelect ) ; 
int menultem = LoWord (mSelect ) ; 

Str255 name; 

GrafPtr savePort; 
long 1 ; 

switch (menuID) { 

caseapplelD: GetPort (SsavePort ) ; Getltem (appleMenu, menultem, name) ; 
OpenDeskAcc (name) ; SetPort (savePort) ; break; 

casef ilelD : 
switch (menultem) { 
casequit Item: ExitToShell ( ) ; 
break; 

} break; 

caseoptID: doFunction (menultem); break; 

} 

} 
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/* SEND() 



function : 

- This function displays a byte on the Macintosh screen, 
arguments : 

- a 

called by: 

- go () /monitor . c 

- DownLoad ( ) /monitor . c 

- memdisp () /monitor . c 

- wmem () /monitor . c 

- DisAsm ( ) /monitor . c 

- SendRegs ( ) /monitor . c 

- HandleEvent ( ) /download . c 
calls : 

- None 



*/ 

send (a) char a; 

{ 

long 1; 
c=a; 

PBWrite (&pbout, 0) ; 
Delay (1L, &1) ; 

} 



/* SEND_PRN() 
function : 

- This function sends a byte to the serial printer output, 
arguments : 

- a 

called by: 

- DumptoPrn ( ) /Monitor . c 
calls : 

- None 

*/ 

sendprn(a) char a; 

{ 

long 1; 

pr nout bu f [ 0 ] =a ; 

PBWrite (Sprnbout, 0) ; 

Delay ( 1L , & 1) ; 

} 
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/* COPY_REGS() 
function : 

- This function receives and copies the updated Register 
Information which are sent by the ECB . 

arguments : 

called by: 

- go () /monitor . c 

- DownLoad ( ) / monitor . c 
calls : 

- None 



*/ 

CopyRegs ( ) 

{ 

char instring2[4] ; 
int j,m=0,k=0 ; 

while (m<24) { 

registers [m] = 0 ; 
for ( j=0; j<4 ; j++) { 

inst ring2 [ j ] =inst ring [k] / k++; 

} 

for ( j=0; j<4 ; j++) 

registers [m] = (instring2 [j]&0xff) + (registers[m]«8) ; 
m++ ; 

} 

} 



/* COPY_BRK_CNTS ( ) 
function : 

- This function receives and copies the updated Break Counts 
which are sent by the ECB. 

arguments : 

called by: 

- go ( ) /monitor . c 
calls : 

- None 

*/ 

CopyBrkCnt s ( ) 

{ 

char instring2 [2] ; 
int j , m, k=96, TempLoc; 
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for ( j=0; j<5 ; j++) { 

TempLoc=0 ; 

for (m=0;m<2;m++) { 

instring2 [m] =instring [k] ; k+ + ; 

} 

for (m=0;m<2;m++) TempLoc= ( inst ring2 [m] &0xff ) + (TempLoc<<8) ; 
if ( (TempLoc==0) && (BreakTimes [ j ] >=1) ) BreakTimes [ j ] =1 ; 
else 

BreakTimes [ j ] =TempLoc; 

) 



/* INPUT_BUFFER() 
function : 

- This function checks modem input, and waits until 'hit' 
bytes are received. 

arguments : 

- hit 

called by: 

- DownLoad ( ) /monitor . c 

- go () /monitor . c 

- memdisp ( ) /monitor . c 

- wmem () /monitor . c 

- DisAsm ( ) /monitor . c 
calls : 

- None 



*/ 

InputBuf fer (hit) 
int hit ; 

{ 

char c; 
int n ; 
long l,m; 

for ( ; ; ) { 

SerGetBuf (-6, &1) ; 
if(l>=hit) break ; 

} 

if (1 ! =0) { 

HiliteMenu (f ilelD) ; 

if ( 1>2 55 ) 1=255; pbin . ioReqCount = 1; PBRead (&pbin, 0) ; 

) 

) 



/* CHECK ERROR () 
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function : 

- This function checks to see whether an error occurred or 
not, during data transmission. 

arguments : 

called by: 

- DownLoad () /monitor . c 

- go () /monitor . c 

- memdisp () /monitor . c 

- wmem () /monitor . c 

- SendRegs () /monitor . c 
calls : 

- Stop_n_Flush () /download . c 

- Error () /download. c 

*/ 

CheckError () 

{ 

int n ; 

f or (n=0 ; n<327 67 ; n++) ; 

SerStatus ( -6, &SerRec) ; 
if (SerRec . cumErrs ==64) { 

Error ( "\pError in Transmission !", "\p Try Again. "\p", u \p") ; 
ErrorFlag=l ; 

Stop_n_Flush () ; 

} 

} 



/* STOP_N_FLUSH ( ) 
function : 

- This function stops receiving from modem input, discarding the 
previously received data. 

arguments : 

called by: 

- DownLoad () /monitor . c 

- go () /monitor . c 

- memdisp () /monitor . c 

- dump ( ) /monitor . c 

- doFunction ( ) /menu . c 

- CheckError () /download . c 

- HandleEvent () /download . c 
calls : 

- None 

*/ 
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Stop_n_Flush () 

{ 

long 1; 

PBKilllO (&pbin, 0) ; 
SerGetBuf (-6, &1) ; 
if (1 ! =0) { 

pbin . ioReqCount = 1; 
PBRead (&pbin, 0) ; 

} 

} 
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Source code of menu . c 



ii . 



/* Menu. 

#def ine 
#def ine 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 

typedef 



typedef 



typedef 

typedef 

typedef 

typedef 



typedef 

typedef 

pascal 
enum { 



enum { 

extern 

extern 

extern 

extern 

extern 

extern 



c */ 

NULL OL 

everyEvent OxFFFF 

int (*ProcPtr) () ; 

struct { inttop, left , bottom, right ; } Rect ; 

char QDByte, *QDPtr, **QDHandle; 

struct { QDPtrbaseAddr; introwBytes; Rectbounds; } BitMap; 
struct { intrgnSize; RectrgnBBox; } Region,* RgnPtr, ** RgnHandle; 
struct { intv,h; } Point ; 
unsigned char Pattern [8]; 

enum { bold = 1, italic = 2, underline = 4, outline = 8, 
shadow = 16, condense = 32, extend = 64 } Style; 
struct { QDPtrtextProc, lineProc, rectProc, rRectProc, ovalProc, 

arcProc, polyProc, rgnProc, bitsProc, commentProc, txMeasProc, 
getPicProc, putPicProc ; } QDProcs,* QDProcsPtr; 
structGrafPort {int device; BitMap portBits; Rect portRect; 

RgnHandle visRgn, clipRgn; Pattern bkPat, fillPat ; 
Point pnLoc,pnSize; int pnMode; Pattern pnPat; 
int pnVis, txFont ; Style txFace; int txMode, txSize; 
long spExtra, fgColor, bkColor ; int 
colrBit , patStretch; 

QDHandle picSave, rgnSave, polySave ; 

QDProcsPtr grafProcs; } GrafPort, * GrafPtr; 
GrafPtr WindowPtr; 
char ** Handle ; 
unsigned char Str255 [256] ; 

struct { int menuID, menuWidth, menuHeight ; Handle menuProc; 
long enableFlags; Str255menuData; 

} Menulnfo, * MenuPtr, ** MenuHandle; 

WindowPtr DialogPtr ; 

struct EventRecord { int what; longmessage, when; Pointwhere; 

int modifiers; } EventRecord; 

DialogPtr GetNewDialog ( ) ; 

downltem = 1, Sbreakltem, nulllltem, regltem , 

Fregltem, null2Item, memitem, MemWitem, null3Item, 

Options, Dumpltem, null4Item, clearltem, helpltem } ; 
applelD = 1, filelD, optID, widthID, incID }; 

char ManSign [ 8] , Exp Sign [8 ] , Fbuf [12 ] , OurEvent , DisAsmOutBuf [ 81 ] ; 
long StaDisAdr , EndDisAdr; 
intBreakTimes [5 ], Clear; 

long registers [24 ] , Breaks [5 ] , fcregs [3 ] , from, to, at ; 

char fregs [20] [ 8 ] , clrscn, instring [255 ] , Display Steps ; 

char ReturnTo, CameFmGo, Que_buf [2000 ] , *Head, *Tail, *EndQue, RefScrn; 
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extern 


WindowPtr Display Window; 


extern 


Rect windowBounds , myRect , ClrRect ; 


extern 


SerRec 


} 


char 


verify. 


WillGoTo=l, DisAssemble, PrintBuf [2500] , Experienced; 


char 


GoToReg 


, Coprocessor , Not After Go=0, Brk Flag, Hardcopy=0 ; 


char 


t[]= "PC= . SR= . USP= . SSP= . ISP= .D0=. Dl=. D2=. D3=.D4=. D5= 




r* 

Q 

II 

KD 

Q 


=. A0=. Al= . A2= . A3= . A4 = . A5=. A6= . A7=. 


long 


value , 


tempvalue ; 


DialogPtr 


dp; 




extern 


void 


print (char * ) ; 


extern 


void 


DownLoad (int) ; 


extern 


void 


dump (void) ; 


extern 


void 


LastScreen (int) ; 


extern 


void 


FillQue(int) ; 


extern 


void 


DisAsm ( ) ; 


extern 


void 


Stop_n_Flush () ; 


extern 


void 


wmemory ( int , int ) ; 


extern 


void 


go (void) ; 


extern 


void 


DumptoPrn (int) ; 


extern 


void 


DumptoScreen ( int , char * ) ; 


extern 


void 


help (void) ; 


extern 


void 


ltoa ( long , char *, int) ; 


extern 


void 


itoa ( int , char *); 


extern 


long 


atol (char * ) ; 


extern 


long 


atoi (char * ) ; 


extern 


void 


print hex ( long, int ) ; 


extern 


void 


prnthex2 ( long, int , int ) ; 


extern 


void 


CheckHex ( int , int) ; 


extern 


void 


CheckDec (int, int, int) ; 


extern 


void 


Error (char *,char *,char *,char *) ; 


/* DO_FUNCTION() 




function : 





- This function provides user interface to the debugger. 
Selection of a particular menu, such as registers menu or Go 
menu, etc., display of that menu, and the user's manipulation 
of the fields in that menu, the update of that menu, etc., the: 
are all provided by DO_FUNCTION ( ) . 

arguments : 

- theltem 
called by: 

- HandleEvent ( ) / download . c 

- HandleMenu ( ) //download . c 

calls 

- DownLoad ( ) /monitor . c 
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- dump () /monitor . c 

- FillQue () /monitor . c 

- CheckHex ( ) /menu . c 

- CheckDec ( ) /menu . c 

- printhex2 () /Monitor . c 

- Stop_n_Flush () /download . c 

- Error () /menu . c 

- ltoa () /monitor . c 

- atol () /monitor . c 

- it oa () /monitor . c 

- atoi () /monitor . c 

- help () /monitor . c 

- wmem () /monitor . c 

- DisAsm () /monitor . c 

- DumptoPrn ( i) /monitor . c 

- LastScreen () /monitor . c 



*/ 

doFunction (theltem) int theltem; 

{ 

char number [21 ], s [21 ] ; 

static char width=l, step=l ; 
int i, j, type, change, first, k, mad; 

long 1; 

Handle itemh; 

EventRecord myEvent; 

Rect textbox; 

clrscn=l ; 
switch (theltem) { 
case downltem: 

DownLoad(O); break; 
case Dump Item: 

LastScreen (1) ; break; 
case regltem: 

dp=GetNewDialog (129, NULL, -1L) ; 

SetPort (dp) ;change=l; 
for (i=0; i<24; i++) { 

if (i==19) ltoa (registers [i] , number, 4) ; 
else if (i==23) ltoa (registers [i] , number, 2) ; 
else ltoa (registers [i] , number, 8) ; 

GetDItem(dp, i+2, &type, &itemh, &textbox) ; SetIText (itemh, number) ; 

} 

SellText (dp, 2, 0, 32000) ; 
do{ 

SystemTask ( ) ; 

GetNextEvent (everyEvent, SmyEvent) ; 
if (change) { 

GetDItem(dp, 45, &type, &itemh, Stextbox) ; 

SetCtlValue (itemh, registers [19] &0x010) ; 
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GetDItem(dp, 46, &type, &itemh, &textbox) ; 

SetCtlValue (itemh, registers [19] &8) ; 

GetDItem(dp, 47, &type, &itemh, &textbox) ; 

SetCtlValue (itemh, registers [19] &4) ; 

GetDItem (dp, 48, Stype, & itemh, & text box) / 

SetCtlValue (itemh, registers [19] &2) ; 

GetDItem (dp, 4 9, &type, &itemh, Stextbox) ; 

SetCtlValue (itemh, registers [19] &1) ; 

GetDItem(dp, 50, &type, &itemh, Stextbox) ; 

if ( ( (registers [19] & 0x3000) ==0x2000) && (Experienced) ) 

SetCTitle (itemh, "\pSupervisor") ; 
else 

if ( ( (registers [19] &0x3000) ==0x3000) && (Experienced) ) 

SetCTitle (itemh, "\plnterrupt") ; 
else 

SetCTitle (itemh, "\pUser") ; 

GetDItem(dp, 51, &type, &itemh, &textbox) ; 
i= (registers [ 19] >>8) &7; 
ltoa ( (long) i, number, 1) ; 

SetCTitle ( itemh, number) ; 

} 

if (change==l) { 

ltoa (registers [ 19 ] , number, 4 ) ; 

GetDItem (dp, 21, &type, & itemh, & textbox) ; Set IText ( itemh, number ) ; 

} 

ModalDialog (NULL, Stheltem) ; 

if (theltem==53) { /* If ClearAll then Clear Registers D0-A6 */ 

ltoa (0L, number, 8) ; 
for (i=0; i<=14 ; i++) { 

GetDItem (dp, i+2, &type, &itemh, stextbox) ; 

SetIText (itemh, number) ; 

} 

} 

if ( (theltem<26) && (theltem>l) ) CheckHex (theltem, 8) ; 

change=0; 

if (theltem==21 ) { 

GetDItem(dp, 21, Stype, Sitemh, Stextbox) ; GetIText (itemh, number) ; 

registers [19] =atol (number) ; 

if ( ( (registers [19] &0x00000f 00) »8) >=4) { 

Error (" \plnterrupt level >=4 ","\pwill crash the system", 

"\ P ", "\p") ; 

registers [ 19]= ( (registers [19]&0xfffff0ff) 10x00000300); 
ltoa (registers [ 19] , number, 4 ) ; 

GetDItem (dp, 21, &type, &itemh, stextbox) ; 

SetIText (itemh, number) ; 

) 

change=2 ; 

if ( ( ! Experienced) && ( (registers [19] »12) !=0) ) { 

registers [19] =registers [19] &0xcf f f ; 
change=l ; 
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} 



} 



if (theltem==45) 
i f ( t he I tem==4 6 ) 
if ( theltem==47 ) 
if (theltem==48) 
if (theltem==49) 
if (theltem==50) 



{ registers [19] = registers [19] 



registers [19] 
registers [19] 
registers [19] 
registers [19] 



{registers [19] 

{registers [19] 

{registers [19] 

{registers [19] 

{ 

if (Experienced) { 

i= (registers [19] >>12) &0x07; i=(i+l)%4; i=i«12 
registers [ 1 9] = (registers [19] & Oxcfff) |i; 



OxlO; change=l;} 
change=l ; } 
change=l ; } 
change=l ; } 
change=l; } 



} 

else regist ers [ 1 9 ] = (registers [19] & Oxcfff); 
change=l ; 

} 

if (theltem==51 ) { 

i= (registers [19] >>8) &7 ; 
i= ( i+1 ) & 7; 

i= (i<<8) & 0x07 00; j=registers [19] &Oxf 8f f ; 
registers [19] = j I i ; 

if ( ( (registers [19]&0x00000f00)>>8) >=4) { 

Error (" \plnterrupt level >=4 ","\pwill crash the system", 

"\p", "\p") ; 

registers [19] = (registers [ 19 ] & Oxf f f f f Of f ) | 0x00000300 ; 

} 

change=l ; 

} 

} while ( (theltem != l)&&(theltem != 54)); 
f or (i=0 ; i<24 ; i++) { 

GetDItem (dp, i+2, &type, &itemh, Stextbox) ; GetIText (itemh, number) ; 
registers [ i] =atol (number) ; 



} 

if ( (theltem==54 ) && (CameFmGo) ) { 

ReturnTo=l ; 
go ( ) ; 



} 



else 

if (CameFmGo) ReturnTo=0; 
else ReturnTo=2; 

DisposDialog (dp) ; 

SetPort (DisplayWindow) ; 

Clear=0 ; OurEvent=l; 
break; 

case Fregltem: 

dp=GetNewDialog (133, NULL, -1L) ; 

SetPort (dp) ; 

SellText (dp, 2 , 0 , 32000 ) ; change=l; 
for (i=0; i<8; i++) { 

number [0] =17 ; 

for ( j = 0; j<17 ; j++) number [ j + 1 ] =fregs [ j] [i] ; 
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GetDItem (dp, 2 * ( 1+i) , &type, Sitemh, Stextbox) ; Set IText ( itemh, number) ; 
number [0 ] =3; 

f or ( j=0; j<3; j++) number ( j+1 ] =f regs [ j+17 ] [i] ; 

GetDItem (dp, 2* (1+i) +1, &type, Sitemh, &textbox) / SetIText (itemh, number), 
number [0 ] =1 ; number [1 ] =ManSign [i] ; 

GetDItem (dp, 2* (17 + i) , &type, Sitemh, &textbox) ; SetIText (itemh, number) ; 
number [ 0 ] = 1 ; number [1 ] =ExpSign [i] ; 

GetDItem (dp, 2* (17+i) +1, &type, &itemh, stextbox) ; SetIText (itemh, number! 

} 

for ( i=0 ; i<3 ; i++) { 

ltoa (fcregs [i] , number, 8) ; 

GetDItem (dp, i+18, &type, &itemh, Stextbox) ; SetIText (itemh, number) ; 

} 

do{ 

SystemTask ( ) ; 

GetNextEvent (everyEvent , &myEvent) ; 
if (change) { 

GetDItem (dp, 52 , &type, &itemh, &textbox) / 

SetCtlValue (itemh, ( (fcregs [0] »1) &0x00004000) ) / 

GetDItem (dp, 53, &type, &itemh, &textbox) / 

SetCtlValue (itemh, fcregs [0] &0x004000) ; 

GetDItem (dp, 54, &type, &itemh, &textbox) ; 

SetCtlValue (itemh, fcregs (0] &0x002000) / 

GetDItem (dp, 55, &type, &itemh, stextbox) ; 

SetCtlValue (itemh, fcregs (0] &0x001000) ; 

GetDItem (dp, 56, Stype, Sitemh, Stextbox) ; 

SetCtlValue (itemh, fcregs [0] &0x000800) ; 

GetDItem (dp, 57 , &type, & itemh, & textbox) ; 

SetCtlValue (itemh, fcregs [0] &0x000400) ; 

GetDItem (dp, 58, Stype, Sitemh, Stextbox) ; 

SetCtlValue (itemh, fcregs [0] &0x000200) / 

GetDItem (dp, 59, &type, &itemh, stextbox) ; 

SetCtlValue (itemh, fcregs [0] &0x000100) ; 

GetDItem (dp, 60, &type, &itemh, &textbox) ; 

SetCtlValue (itemh, (fcregs [1 ] >>24) &0x08) ; 

GetDItem (dp, 61, Stype, Sitemh, Stextbox) ; 

SetCtlValue (itemh, (fcregs [1] »24) &0x04) ; 

GetDItem (dp, 62 , &type, Sitemh, stextbox) / 

SetCtlValue (itemh, (fcregs [ 1 ] »2 4 ) &0x02 ) ; 

GetDItem (dp, 63, &type, &itemh, stextbox) ; 

SetCtlValue (itemh, (fcregs [1] »2 4) &0x01) ; 

} 

if (change==l) { 

ltoa (fcregs [0] , number, 4) ; 

GetDItem (dp, 18, &type, &itemh, Stextbox) ; SetIText (itemh, number) ; 
ltoa (fcregs [ 1 ] , number, 8 ) ; 

GetDItem (dp, 19, &type, &itemh, &textbox) ; SetIText (itemh, number) ; 
ltoa (fcregs [2] , number, 8) ; 

GetDItem (dp, 20, &type, &itemh, stextbox) ; SetIText (itemh, number) ; 

} 
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ModalDialog (NULL, &theltem) ; 

if (( (theltem<17) && (theltem>l) )&&( (theltem % 2)==0)) CheckHex (theltem, 17) ; 

if ( ( (theltem<18) & & (theltem>2) ) & & ( ( (theltem+l) % 2 ) = = 0 ) ) 
CheckHex (theltem, 3) ; 

if ( (theltem<50) && (theltem>33) ) CheckDec (theltem, 1,1); 

change=0; 

if (theltem==18) { 

GetDItem (dp, 18, Stype, &itemh, stextbox) ; GetIText (itemh, number) ; 
fcregs [0] =atol (number) ; change=2; 

} 

if (theltem==19) { 



GetDItem (dp, 19, &type, sitemh, Stextbox) ; GetIText (itemh, number) ; 
fcregs [1 ] =atol (number) ; change=2 ; 

} 



if (theltem==53) 


{ 


fcregs [0] 


= 


fcregs [0] 


/s 


0x004000; 


change=l ; 


} 


if (theltem==54 ) 


{ 


fcregs [0] 


= 


fcregs [0] 


A 


0x002000; 


change=l ; 


) 


if (theltem==55) 


{ 


fcregs [0] 


= 


fcregs [0] 


A 


0x001000; 


change=l ; 


} 


if (theltem==56) 


{ 


fcregs [0] 


= 


fcregs [0] 


A 


0x000800; 


change=l ; 


} 


if (theltem==57 ) 


{ 


fcregs [0] 


= 


fcregs [0] 


A 


0x000400; 


change=l ; 


} 


if (theltem==58) 


{ 


fcregs [0] 


= 


fcregs [0] 


A 


0x000200; 


change=l ; 


} 


if (theltem==52) 


{ 


fcregs [0] 


= 


fcregs [0] 


A 


0x008000; 


change=l ; 


} 


if (theltem==59) 


{ 


fcregs [0] 


= 


fcregs [0] 


A 


0x000100; 


change=l ; 


} 


if (theltem==60) 


{ 


fcregs [1 ] 


= 


fcregs [1 ] 


A 


0x08000000; 


change=l ; 


} 


if (theltem==61 ) 


{ 


fcregs [1] 


= 


fcregs [ 1 ] 


A 


0x04000000; 


change=l ; 


} 


if (theltem==62) 


{ 


fcregs [1 ] 


= 


fcregs [ 1 ] 


A 


0x02000000; 


change=l ; 


) 


if (theltem==63) 


{ 


fcregs [1] 


= 


fcregs [1 ] 


A 


0x01000000; 


change=l ; 


} 



) while (theltem != 1) ; 
for (i=0 ; i<8 ; i++) { 

GetDItem(dp, 2* (1+i) , &type, Sitemh, Stextbox) ; GetIText (itemh, number) ; 
for(j=0;j<17;j++) fregs[j] [i] =number [ j+1] ; 

GetDItem(dp, 2* (1+i) +1, Stype, Sitemh, Stextbox) ; GetIText (itemh, number) ; 
for ( j=0; j<3; j++) fregs [ j+1 7 ] [i] =number [j + 1] ; 

} 

for (i=0; i<3; i++) { 

GetDItem(dp, i+18, &type, Sitemh, stextbox) ; GetIText (itemh, number) ; 
fcregs [i ] =atol (number) ; 

} 

for (i=0; i<16; i+=2) { 

GetDItem(dp, 34+i, &type, Sitemh, stextbox) ; GetIText (itemh, number) ; 
ManSign [ i/2 ] =number [ 1 ] ; 

GetDItem (dp, 34+i+l, &type, &itemh, Stextbox) ; GetIText (itemh, number) ; 
ExpSign [i/2] =number [1] ; 

) 

DisposDialog (dp) ; SetPort (DisplayWindow) ; 

Clear=0; OurEvent=l; 
break; 

case memitem: 
f irst=l ; 

dp=GetNewDialog (130, NULL, -1L) ; SetPort (dp) ;change=0; 
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ltoa ( from, number, 8) ; 

GetDItem(dp, 2, &type, &itemh, &textbox) ; 
ltoa (to, number, 8) ; 

GetDItem(dp, 3, &type, &itemh, &textbox) ; 
ltoa (to-f rom, number, 8) ; 

GetDItem (dp, 4 , &type, &itemh, &textbox) ; 
GetDItem(dp, 9, &type, &itemh, stextbox) ; 
SellText (dp, 2, 0, 32000) ; 
do { 

if (change==l) { 

ltoa (to-from, number, 8) ; 

GetDItem (dp, 4, &type, &itemh, &textbox) 



SetIText (itemh, number) ; 

SetIText (itemh, number) ; 

SetIText (itemh, number) ; 
SetCtlValue ( itemh, DisAssemble) 



; SetIText (itemh, number) ; 



} 

if (change==2) { 

ltoa (to, number, 8) ; 

GetDItem (dp, 3, &type, &itemh, &textbox) ; SetIText (itemh, number) ; 

} 

SystemTask ( ) ; 

GetNext Event (everyEvent, &myEvent) ; 

ModalDialog (NULL, Stheltem) ; 

change=0; 

if (theltem==2 ) { 

GetDItem (dp, 2 , &type, &itemh, stextbox) ; Get IText (itemh, number) ; 
from=atol (number) ;change=l; 

} 

if ( theltem==3 ) { 

GetDItem(dp, 3, &type, &itemh, &textbox) ; GetIText (itemh, number) ; 
to=atol (number) ;change=l; 



} 

if (theltem==4 ) { 

GetDItem(dp, 4, &type, &itemh, &textbox) ; GetIText (itemh, number) ; 
to=atol (number) +f rom; change=2 ; 

) 

if ( (f irst&&DisAssemble) | | (theltem==9) ) { 

GetDItem(dp, 9, &type, &itemh, Stextbox) ; 

SetCtlValue (itemh, DisAssemble= (theltem==9) ? IDisAssemble : DisAssemble) 



> 

f irst=0 ; 

} while ( (theltem != 1) && (theltem != 8)); 

DisposDialog (dp) ; SetPort (DisplayWindow) ; 
clrscn=0; 

if ( (to-from>=500) && (theltem==l) && ( IDisAssemble) ) { 

to=f rom+500 ; 

Error ( "\pCannot dump more than ","\p 500 bytes at a 

time. ", "\p", "\p") ; 

} 

if ( (to<from) && (theltem==l) ) { 

ltoa (from, s , 8) ; ltoa (to, number, 8) ; 

Error ("\pCannot dump range " ,s,"\p to ", number); 

} 
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case 



else if (theltem==l) { 

if (DisAssemble) { 

StaDisAdr=from; EndDisAdr=to; 
NotAfterGo=l ; DisAsm(); 

} 



else { 

NotAfterGo=0 ; dump ( ) ; 

} 

} 

if(RefScrn) LastScreen ( 0) ; 

Clear=0; OurEvent=0; 
break; 

Me mW item : 

dp=GetNewDialog (132, NULL, -1L) ; SetPort (dp) ;change=0; 
ltoa (at, number, 8) ; 

GetDItem(dp, 2, &type, Sitemh, stextbox) ; SetIText (itemh 
ltoa (value, number, width*2 ) ; 

GetDItem(dp, 3, &type, Sitemh, stextbox) ; SetIText (itemh 

first=l;theltem=0; SellText (dp, 2,0, 32000) ; 

do{ 

SystemTask ( ) ; 

GetNextEvent (everyEvent, SmyEvent) ; 
if ( (f irst&&width==l) | | (theltem==6) ) { 

GetDItem (dp, 6, Stype, Sitemh, Stextbox) ; 

GetDItem(dp, 7, stype, Sitemh, stextbox) ; 

GetDItem (dp, 8, Stype, Sitemh, Stextbox) ; 

) 

if ( (f irst&&width==2) | | (theltem==7) ) { 

GetDItem (dp, 6, &type, Sitemh, Stextbox) ; 

GetDItem(dp, 7, stype, sitemh, stextbox) ; 

GetDItem(dp, 8, stype, sitemh, stextbox) ; 

} 

if ( (f irst&&width==4 ) | | (theltem==8) ) { 

GetDItem(dp, 6, Stype, Sitemh, Stextbox) ; 

GetDItem (dp, 7, &type, & itemh, stextbox) ; 

GetDItem(dp, 8, Stype, sitemh, stextbox) ; 

} 

if ( (f irst&&step==l) | | (theltem==9) ) { 

GetDItem(dp, 9, stype, sitemh, stextbox) ; 

GetDItem (dp, 10, Stype, Sitemh, Stextbox) 

GetDItem (dp, 11, stype, sitemh, &textbox) 

} 

if ( (f irst&&step==0) | | (theltem==10 ) ) { 

GetDItem(dp, 9, &type, sitemh, stextbox) ; 

GetDItem (dp, 10, &type, Sitemh, Stextbox) 

GetDItem (dp, 11, &type, & itemh, & textbox) 

} 

if ( (f irst&&step==-l) | | (theltem==ll) ) { 

GetDItem (dp, 9, &type, &itemh, stextbox) ; 



, number) ; 
, number) ; 



SetCt lvalue 
SetCt lvalue 
SetCt lvalue 



SetCt lvalue 
SetCt lvalue 
SetCt lvalue 



SetCt lvalue 
SetCt lvalue 
SetCt lvalue 



SetCt lvalue 
SetCtlValue 
SetCt lvalue 



SetCtlValue 

SetCtlValue 

SetCtlValue 



(itemh, 1 ) ; 

(itemh, 0) ; 

(itemh, 0) ; width=l 



(itemh, 0) ; 

(itemh, 1) ; 

(itemh, 0) ; width=2 



(itemh, 0) ; 

(itemh, 0) ; 

(itemh, 1) ;width=4 



(itemh, 1) ; 

(itemh, 0) ; 

(itemh, 0) ; step=l; 



(itemh, 0) ; 

(itemh, 1) ; 

(itemh, 0) ; step=0; 



SetCtlValue 



( itemh, 0 ) ; 

GetDItem(dp, 10, &type, Sitemh, stextbox) ; SetCtlValue (itemh, 0) ; 
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GetDItem (dp, 11, &type, & itemh, & textbox) ; SetCt lValue (itemh, 1 ) ; step=-l ; 

} 

if ( (f irst&&verify) | | (theltem==12) ) { 

GetDItem (dp, 12, &type, sitemh, &textbox) ; 

SetCtlValue (itemh, verify= (theltem==12) ? (verify: verify); 

) 

f irst=0 ; 

ModalDialog (NULL, &theltem) ; 
if (theltem==3) change=l; 

if ( (theltem==2) && change) { 

GetDItem (dp, 3, &type, Sitemh, stextbox) ; GetIText (itemh, number ) ; 
value=atol (number) ; 

GetDItem(dp, 2, &type, sitemh, &textbox) ; GetIText (itemh, number) ; 
at=atol (number) ; 
wmemory (step, width) ; 
ltoa (at, number, 8) ; 

GetDItem(dp, 2, &type, &itemh, stextbox) ; 

SetIText ( itemh, number) ; SellText (dp, 3,0,80); 
ltoa (value, number, width*2) ; 

GetDItem(dp, 3, Stype, Sitemh, stextbox) ; 

SetIText (itemh, number) ; SellText (dp, 3, 0, 80) ; 

} 

} while (theltem != 1); 

GetDItem(dp, 2, &type, &itemh, &textbox) ; GetIText (itemh, number) ; 
at=atol (number) ; 

DisposDialog (dp) ; SetPort (DisplayWindow) ; 

Clear=0; OurEvent=l; 
break; 

case Sbreakltem: 

dp=GetNewDialog (131, NULL, -1L) ; SetPort (dp) ; 
change=0; Brk_Flag=0x00; 
for (i=0; i<5 ; i++) { 

ltoa (Breaks [ i ] , number, 8) ; 

GetDItem (dp, i+2, &type, &itemh, stextbox) ; SetIText (itemh, number) ; 
itoa (BreakTimes [i] , number) ; 

GetDItem (dp, i+14 , & type, & itemh, & textbox) ; SetIText ( itemh, number) ; 

} 

ltoa (registers [ 18 ] , number, 8) ; 

SellText (dp, 10, 0, 32000) ; 

GetDItem(dp, 10, &type, &itemh, &textbox) ; SetIText (itemh, number) ; 
f irst=change=l ; theltem=0; 
do { 

SystemTask ( ) ; 

GetNext Event (everyEvent, SmyEvent) ; 

if ( (f irst&&WillGoTo==l) | | (theltem==8) ) { 

GetDItem (dp, 8 , &type, & itemh, & textbox) ; SetCtlValue ( itemh, WillGoTo=l ) ; 
GetDItem (dp, 9, &type, &itemh, &textbox) ; SetCtlValue (itemh, 0) ; 

} 

if ( (f irst&&WillGoTo==0) | | (theltem==9) ) { 

GetDItem (dp, 8, &type, & itemh, & textbox) ; SetCtlValue (itemh, WillGoTo=0) ; 
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GetDItem(dp, 9, &type, &itemh, &textbox) ; SetCtlValue (itemh, 1) ; 

) 

for (i=0; i<5; i++) { 

GetDItem (dp, i+2, &type, &itemh, &textbox) ; GetIText (itemh, number) ; 

tempvalue=atol (number ) ; 

if ( (Breaks [i ]) ==tempvalue) { 

GetDItem (dp, i+14, stype, &itemh, &textbox) ; GetIText (itemh, number) ; 
BreakTimes [i] =atoi (number) ; 

) 

else { 

Breaks [i] =tempvalue; 
if (Breaks [i ]! =0x00) { 

BreakTimes [i] =1 ; 

itoa (BreakTimes [i] , number) ; 

GetDItem(dp, i+14, &type, &itemh, &textbox) ; SetIText (itemh, number) ; 

} 

} 

if (Breaks [i]==0x00) { 

BreakTimes [ i ] =0 ; 

itoa (BreakTimes [i] , number) ; 

GetDItem(dp, i+14, &type, Sitemh, &textbox) ; SetIText (itemh, number) ; 

} 

if (change) { 

GetDItem (dp, 13, stype, sitemh, &textbox) ; 

if ( (registers [19] &0xc000) ==0x8000) SetCTitle (itemh, "\pTrace All") ; 
else 

if ( (registers [19] &0xc000) ==0x4000) SetCTitle (itemh, "\pTrace Branch") 
else SetCTitle (itemh, "\pNo Trace"); 
for (i=0; i<5; i++) { 

Itoa (Breaks [ i ] , number, 8) ; 

GetDItem(dp, i+2, &type, &itemh, Stextbox) ; SetIText (itemh, number) ; 
itoa (BreakTimes [i] , number) ; 

GetDItem (dp, i+14 , Stype, Sitemh, Stextbox) ; SetIText (itemh, number) ; 

} 

GetDItem(dp, 19, Stype, &itemh, &textbox) ; SetCtlValue (itemh, DisplaySteps) 

GetDItem(dp, 21, &type, &itemh, Stextbox) ; 

if ( (ReturnTo==l) | | ( (ReturnTo==0) && (GoToReg) ) ) { 

SetCTitle (itemh, "\pRegister Menu") ; 

ReturnTo=l; GoToReg=0; 

} 

else if (ReturnTo==0) SetCTitle (itemh, "\pGo Menu"); 

else SetCTitle (itemh, "\pNo Menu") ; 

change=0; 

} 

ModalDialog (NULL, Stheltem) ; 

if ( ( (theltem>=2) && (theltem<=6) ) | | (theltem==10) ) CheckHex (theltem, 8) ; 
if ( (theltem>=14 ) && (theltem<=18) ) CheckDec (theltem, 4,9); 
if (theltem==7 ) { 

for (i=0; i<5; i++) { 

Itoa (Breaks [i] =0, number, 8) ; 
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I 



GetDItem (dp, i+2, &type, Sitemh, stextbox) ; SetIText (itemh, number) ; 
itoa (BreakTimes [i] =0, number) ; 

GetDItem(dp, i+14, &type, sitemh, stextbox) ; SetIText (itemh, number) ; 

} 

change=l ; 

} 

if (theltem==19) { 

DisplaySteps= ! DisplaySteps ; 
change=l; 

} 

if (theltem==21) { ReturnTo= (ReturnTo+1) % 3; change=l; } 
if (theltem==13) { 

registers [19] = (registers [19] &0x3f f f ) I ( ( ( (registers [19 ] >>14) +1) %3) «1< 
change=l; first=0; 

} 

} while ( (theltem != 1) && (theltem != 11)); 
for (i=0; i<5; i++) { 

GetDItem(dp, i+2, &type, &itemh, stextbox) ; GetIText (itemh, number) ; 
Breaks [i] =atol (number) ; 

GetDItem (dp, i+14 , Stype, fiitemh, &textbox) ; GetIText (itemh, number) ; 
BreakTimes [ i ] =atoi (number) ; 

} 

GetDItem(dp, 10, &type, Sitemh, stextbox) ; GetIText (itemh, number) ; 
registers [18]=atol (number) ; 
if (theltem==l) { 

if (ReturnTo==l ) CameFmGo=GoToReg=l ; 
else if (ReturnTo==0) GoToReg=0; 
else CameFmGo=GoToReg=0 ; 
if (registers [18]<0xl000) { 

Error ("\plllegal Go Address "\p Must be over $1000 . "\p", "\p' 
registers [18] =0x00; Brk_Flag=l; 

} 

for (i=0 ; i<5 ; i++) 

if ( (Breaks [i] < 0x1000) && (BreakTimes [i] ! =0) ) { 

ltoa ( (long) (i+1) , s , 2 ) ; Brk_Flag=l ; 

Error ( "\plllegal Breakpoint #",s,"\p Must be over $1000. ", "\p" 
Breaks [i] =0x0000; BreakTimes [i] =0; 

} 

} 

if ( (theltem==l) && ( ! Brk_Flag )) go ( ) ; 
if (theltem==ll) { 

ReturnTo=2; 

CameFmGo=GoToReg=0; 

} 

DisposDialog (dp) ; SetPort (DisplayWindow) ; clrscn=0; 
if ( (theltem==l) && ( ! Brk_Flag )) { 

if ( (ReturnTo ! =0) && (ReturnTo ! =1) ) { 

for (i=0, j=0; j<99; j++) { 

if (t[j]==' .') { 

for (k=0; k<9; k++) { PrintBuf [i] =' ';i++;} 
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if ( ( j— 3) I I ( j==22) | | ( j==41) | | C 3—60) | | ( j— 79) | | ( j— 98) ) { 

PrintBuf [ i ] =0x0d; i++; PrintBuf [i] =0x0a; i++; 

} 

} 

else { PrintBuf [i] =t [j ] ; i++; } 

} 

prnthex2 (registers [18] , 8, 3) ; 
prnthex2 (registers [ 19] , 4, 17) ; 
prnthex2 (registers [15] , 8, 30) ; 
prnthex2 (registers [16] , 8, 43) ; 
prnthex2 (registers [17] , 8, 56) ; 
for (i=70, j=0; i<281; i+=13, j++) { 

if ( (i— 122) I I (i— 175) I I ( i==228 ) ) i+=l; 
prnthex2 (registers [ j] , 8, i) ; 

} 

StaDisAdr=EndDisAdr=registers [18] ; 

if ( IRefScrn) DumptoScreen (i, SPrintBuf [0] ) ; 

Stop_n_Flush ( ) ; 

DisAsm ( ) ; 

prnthex2 (StaDisAdr, 8, i) ; i+=8; 

PrintBuf [i] =0x20; i++; 

f or ( j=i , k=l ; k<81 ; k++, j++) PrintBuf [ j ] =DisAsmOutBuf [k] ; i=j; 

PrintBuf [ i] =0x0d; i++; PrintBuf [i] =0x0a; i++; 

PrintBuf [i] =0x0d; i++; PrintBuf [i] =0x0a; 

FillQue (i-1 ) ; 

if (Hardcopy==l) DumptoPrn (i) ; 

} 

} 

if (ReturnTo ! =2) Clear=2; 
else Clear=0; 

OurEvent=l; 

Stop_n_Flush ( ) ; 
break; 

case clearltem: 

EraseRect (SmyRect) ; Clear=2; break; 
case helpltem: 

EraseRect (&myRect) ; clrscn=0; 
help ( ) ; break; 
case Options: 

dp=GetNewDialog (135, NULL, -1L) ; SetPort (dp) ; 

GetDItem(dp, 5, &type, &itemh, Stextbox) ; SetCtlValue (itemh, Experienced) ; 
GetDItem (dp, 4 , &type, Sitemh, stextbox) ; SetCtlValue ( itemh, Ref Scrn) ; 
GetDItem (dp, 3 , &type, &itemh, &textbox) ; SetCtlValue ( itemh, Hardcopy) ; 
GetDItem(dp, 2, &type, &itemh, &textbox) ; SetCtlValue (itemh, Coprocessor) ; 
first=l; theltem=0; 
do { 

SystemTask ( ) ; 

GetNext Event (everyEvent, SmyEvent) ; 

if ( (first &&Experienced) | | (theltem==5) ) { 

GetDItem(dp, 5, &type, &itemh, stextbox) ; 
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SetCt lvalue (itemh, Experienced= (theltem==5 ) ? ! Experienced : Experienced) 

} 

if ( ( f irst&&Ref Scrn) | | (theltem==4) ) { 

GetDItem (dp, 4 , & type , & itemh, & textbox) ; 

SetCt lValue (itemh, Ref Scrn= (theltem==4) ? !RefScrn: RefScrn) ; 

} 

if ( (f irst &&Hardcopy ) | | ( thel tem==3 ) ) { 

GetDItem (dp, 3, &type, &itemh, &textbox) ; 

SetCt lValue (itemh, Hardcopy= (theltem==3) ? IHardcopy: Hardcopy); 

} 

if ( (f irst&&Coprocessor) | | (theltem==2) ) { 

GetDItem(dp, 2, &type, &itemh, &textbox) ; 

SetCt lValue (itemh. Coprocessor (theltem==2) ? ! Coprocessor : Coprocessor) 

} 

f irst=0; 

ModalDialog (NULL, &theltem) ; 

} while (theltem != 1) ; 

DisposDialog (dp) ; SetPort (DisplayWindow) ; 

Clear=0; OurEvent=l; 

} 

return ( 1) ; 



/* CHECK_HEX ( ) 
function : 

- This function checks to see if its argument is a valid 
hexadecimal number or not. If the number is not valid, 
an error message is displayed, and that entry is cleared. 

arguments : 

- theltem, n 
called by: 

- doFunction ( ) /menu . c 
calls : 

- Error () /menu . c 

- ltoa () /monitor . c 



*/ 

void CheckHex (theltem, n) int theltem, n; { 

char number [21]; 
int i, j, type; 

Handle itemh; 

Rect textbox; 

GetDItem (dp, theltem, &type, Sitemh, &textbox) ; GetIText (itemh, number) ; 
if (number [0] >n) { 

Error ( "\pToo Many Digits in: ", number, "\p", "\p") ; 
ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, Stextbox) ; Set IText ( itemh, number) ; 
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} 

for (i=l, j=0; i<number [0] / i++) 

j | = ( (number [i] <' 0 ' ) \ | ( (number [i ] >' 9' ) && (number [ i] <' A' ) ) 

| | ( (number [i] >' F' ) && (number [i] <' a ' ) ) | | (number [i] >' f ' ) ) ; 
if ( j ) { 

Error ( "\plllegal Hexadecimal Character in: ", number, "\p" \p" ) ; 
ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, &textbox) ; SetIText (itemh, number) ; 

} 

} 



/* CHECK DEC ( ) 

function : 

- This function checks to see if its argument is a valid 
Decimal number or not . If the number is not valid, an 
error message is displayed, and that entry is cleared. 

arguments : 

- theltem, n, n2 
called by: 

- doFunction ( ) /menu . c 
calls : 

- Error () /menu . c 

- ltoa () /monitor . c 

*/ 

void CheckDec (theltem, n, n2) int theltem, n, n2; { 

char number [21]; 
int i, j, type; 

Handle itemh; 

Rect textbox; 

GetDItem (dp, theltem, &type, &itemh, &textbox) ; Get IText (itemh, number) ; 
if (number [0] >n) { 

Error ( "\pToo Many Digits in: ", number, "\p" , "\p" ) ; 
ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, Stextbox) ; SetIText (itemh, number) ; 

} 

for (i=l, j=0; iCnumber [0] ; i++) j I = ( (number [ i] <' O' ) | | (number [i ] >' n2' ) ) ; 

if ( j ) { 

Error ( "\plllegal Decimal Character in: ", number, "\p", "\p") ; 

ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, Stextbox) ; SetIText (itemh, number) ; 

} 

} 



/* ERROR () 
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function : 

- This function displays an Error Message on the screen. 

The displayed message is a Pascal string, which is passed 
as a parameter. 

arguments : 

- s, f, 1, z 
called by: 

- doFunction ( ) /menu . c 

- CheckDec ( ) /menu . c 

- CheckHex ( ) /menu . c 

- go () /Monitor . c 

- wmem () /Monitor . c 

- CopyFloat () /Monitor . c 

- memdisp () /Monitor . c 

- HandleEvent () /download . c 

- CheckError () /download . c 

calls 

- None 



*/ 

void Error ( s, f ,1 ,z) char *s, *f, *1, *z; { 

ParamText(s, f, 1, z) ; 

Alert (256, OL ); 

} 
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ill. Source code of monitor. c 



/* Mon it or. c */ 

typedef struct { int v,h; } Point ; 

typedef struct { int top, left , bottom, right ; } Rect ; 

typedef struct { int rgnSize; RectrgnBBox; } Region,* RgnPtr,** RgnHandle; 

extern char *start, *end, *Head, *Tail, *EndQue, *StartQue; 

extern char fregs [20] [8] , clrscn, verify, DisplaySteps, ReturnTo; 

extern char c, instring [255 ] , inbuf [3001 ] , E_bytes [20 ] , fregs [20 ] [8] ; 

extern char Hardcopy , Coprocessor, WillGoTo, Ref Scrn, Reach, clrscn; 

extern char ErrorFlag, NotAfterGo, PrintBuf [2500] , DisAssemble; 

extern char ManSign [8] , ExpSign [8 ] , Fbuf [12] , Que_buf [2000] ; 

extern int origin, BreakTimes [ 5 ] ; 

extern long registers [24 ] , Breaks [5] , f cregs [3 ] , from, to, at , value; 
extern void send (char); 
extern void sendprn (char) ; 

extern void Error (char *,char * , char *,char *) ; 

extern void InputBuf fer ( ) ; 

extern void CheckError ( ) ; 

extern void CopyRegsO; 

extern void CopyBrkCnts ( ) ; 

extern void Stop_n_Flush ( ) ; 

extern Rect windowBounds,myRect, ClrRect; 

extern int ByteCount , LastLocCount , scrollsize, LocCount ; 

extern RgnHandle myRgn; 

char tbuf [ ] = " 0123456789ABCDEF"; 

char DisAsmOutBuf [81] , AbortEvent=0 , AbortCount=0 ; 

int z, line_count , numof chars; 

long StaDisAdr , EndDisAdr , *HISPC, *SubrAdr; 



/* DUMP() 

function : 

- This function performs the 'Memory Display' operation. 

The two global variables (from, to) are set by the user. 
Size= to-from, bytes of memory are displayed, starting from 
the address 'from'. 

Also, user has the 'Disassemble' option. In this case, the 
memory contents are first disassembled, and then displayed 
on the screen, 
arguments : 

called by: 

- doFunct ion ( ) /menu . c 
calls : 

- Stop_n_Flush () /download . c 
Draw x () /monitor . c 
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memdisp ( ) /monitor . c 
prnthex3 ( ) /monitor . c 
FillQue ( ) /monitor . c 
DumptoScreen ( ) /monitor . c 
DumptoPrn ( ) /monitor . c 



*/ 

dump ( ) 

{ 

char DisBuf[16]; 

int i, inbytes, di si, size, residual=0, inex; 
long from2, baseadr; 

Stop_n_Flush () ; 
line__count=0 ; 

for (z=0; z<56; z++) PrintBuf [z] =tbuf [z] ; 

PrintBuf [z ] =0x0d; 

PrintBuf [ z + 1 ] =0x0 a; z+=2 ; 
size=((int) (to-from) ) +1; 
numofchars=size; 
f rom2=f rom; 
if (size > 16) { 

if ( (from2&0x0000000f) !=0) { 

inbytes=16- (int) (from2&0x0000000f ) ; 
baseadr =f rom2& Oxf f f f f f f 0 ; 

} 

else { 
inbytes=16; 
baseadr=f rom2 ; 

} 

prnthex3 (f rom2&0x0f f f f f f f 0L, 8, z) ; 
for (i=0, disl=0; i< (16-inbytes) ;disl++, i++) { 

Draw_x ( z) ; 

DisBuf [disl ] =' . ' ; 

} 

memdisp ( from2, inbytes) ; 

for (i=0; i< inbytes; i++, disl++) { 

if ( (instring [i] >=0x20) && (instring [i] <=0x7 e) ) 
DisBuf [disl ] = instring [i] ; 
else 

DisBuf [disl ] =' . ' ; 

) 

PrintBuf [ z ] =' z ++; 

for (i=0; i<16;i++,z++) PrintBuf [z] =DisBuf [i]; 
PrintBuf [z] =0x0d; 

PrintBuf [z+1 ] =0x0a; z+=2; 
numofchars-=inbytes ; 
baseadr+=16; 

if ( (line_count==22) && (numofchars>=16) ) { 

line count=0; 
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for (inex=z; inex<z+56; inex++) PrintBuf [inex] =tbuf [inex-z] ; 
PrintBuf [inex] =0x0d; 

PrintBuf [inex+1 ] =0x0a; 
inex+=2; z=inex; 

} 

while (numofchars>16) { 

prnthex3 (baseadr, 8, z) ; 
memdisp (baseadr, inbytes=16) ; 
for(disl=0; disKinbytes ; disl++) { 

if ( (instring [disl] >=0x20) && (instring [disl] <=0x7e) ) 

DisBuf [disl ] =inst ring [disl ] ; 
else 

DisBuf [disl] = ' . ' ; 

} 

PrintBuf [z] =' z ++; 

for (i=0; i<16; i++, z++) PrintBuf [z]=DisBuf [i] ; 

PrintBuf [z] =0x0d; 

PrintBuf [z+1] =0x0a; z+=2; 
numof chars-=inbytes ; 
baseadr+=16; 

if ( (line_count==22) && (numof chars>=16) ) { 

line_count=0 ; 

PrintBuf [ z] =0x0d; PrintBuf [z+1 ] =0x0a; z+=2; 

for (inex=z; inex<z+56; inex++) PrintBuf [inex] =tbuf [inex-z] ; 

PrintBuf [ inex] =0x0d; 

PrintBuf [ inex+1 ] =0x0a; 
inex+=2; z=inex; 

} 

} 

prnthex3 (baseadr, 8, z) ; 
memdisp (baseadr, inbytes=numof chars) ; 
for (i=0; i< (16-inbytes) ; i++) Draw_x (z) ; 
for (i=0; Kinbytes; i++) { 

if ( (instring [i] >=0x20) && (instring [i] <=0x7 e) ) 

DisBuf [i] =instring [ i ] ; 
else 

DisBuf [i ] . ' ; 

} 

PrintBuf [z] =' ' ; z++; 

for (i=0; i<inbytes; i++, z++) PrintBuf [z] =DisBuf [i] ; 

PrintBuf [ z ] =0x0d; 

PrintBuf [z+1 ] =0x0a; z+=2; 

} 

else { 

prnthex3 (f rom2&0x0f f f f ff f 0L, 8, z) ; 
if ( (from2&0x0000000f) !=0) 

for (i=0, disl=0; i< ( (int) (from2&0x0000000f ) ) ; disl++, i++) { 

Draw_x (z) ; 
residual++; 

DisBuf [disl ] =' . ' ; 
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} 

else disl=0; 

if (size<= (16-residual) ) { 

memdisp (from2, size) ; 
for (i=0; i<size; disl++, i++) { 

if ( (instring [i] >=0x20) && (in string [i] <=0x7 e) ) 

DisBuf [disl ] =in string [i ] ; 
else 

DisBuf [disl ] =' . ' ; 

} 

for (i=0; i< (16- (size+residual) ) ; i++) Draw_x (z) ; 

PrintBuf [z] =' z++; 

for (i=0; i< (residual+size) ; i++, z++) PrintBuf [z]=DisBuf [i] ; 
PrintBuf [z] =0x0d; PrintBuf [z+1] =0x0a; z+=2; 

} 

else { 

memdisp (from2, (16-residual))/ 

for (i=0; i< (16-residual) ;disl++, i++) { 

if ( (instring [i] >=0x20) && (in string [i] <=0x7 e) ) 

DisBuf [disl ] =in st ring [i] ; 
else 

DisBuf [disl ] =' . ' ; 

} 

PrintBuf [ z ] = ' z++; 

for (i=0; i<16; i++, z++) PrintBuf [z] =DisBuf [i] ; 

PrintBuf [z] =0x0d; PrintBuf [z+1] =0x0 a; z+=2; 
baseadr=f rom2-residual+l 6/ 
prnthex3 (baseadr, 8, z) ; 

memdisp (baseadr, (size- (16-residual) ) ) ; 
for (i=0; i< (16- (size-16+residual) ) ; i++) Draw_x (z) ; 
for ( i=0, disl=0 ; i< ( 16- ( size-1 6+residual ) ) ;disl++, i++) { 

if ( (instring [i] >=0x20) && (instring [i] <=0x7e) ) 

DisBuf [disl ] =instring [ i ] ; 
else 

DisBuf [disl ] =' 

} 

PrintBuf [z ] =' z++; 

f or ( i=0; i< (size- (16-residual) ) ; i++, z++) PrintBuf [z] =DisBuf [i] ; 
PrintBuf [z ] =0x0d; PrintBuf [ z+1 ] =0x0 a; z+=2 ; 

} 

} 

PrintBuf [ z ] =0x0d; PrintBuf [ z+1 ] =0x0 a; 

PrintBuf [z+2 ] =0x0d; PrintBuf [z + 3] =0x0 a/ z+=3; 

FillQue ( z-1 ) ; 

if ( ! Ref Scrn) DumptoScreen ( z, &PrintBuf [ 0] ) ; 
if (Hardcopy) DumptoPrn (z) ; 

AbortEvent=0 ; AbortCount=0; 
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/* MEM_DISP ( ) 
function : 

- This function helps 'dumpO' in performing the 'Memory Display' 
operation . 

Maximum sixteen bytes can be handled by this function, 
arguments : 

- staradr, bytecount 
called by: 

- dump () /monitor . c 
calls : 

- send () /download . c 
Stop_n_Flush ( ) /download . c 
Error ( ) / download . c 
CheckError ( ) /download . c 



*/ 

memdisp (staradr, bytecount) 
int bytecount ; 
long staradr; 

{ 

char c, md_code=0x04 ; 
int i,chksum; 
long 1; 

send (md_code) ; 

for (i=0; i<=400; i++) ; 

for (i=24 ; i>=0; i-=8) send (c= (char) (staradr»i) ) ; 

SerGetBuf (-6, &1) ; 
if (1>0) { 

numofchars=15 ; 

AbortEvent=l ; 

) 

send (c= (char) ( (bytecount) >>0) ) ; 

CheckError ( ) ; 
if ( lErrorFlag) { 

InputBuf fer (bytecount+1 ) ; 

for (i=0; i<bytecount; i++) prnthex3 ( ( (long) (instring [i] ) ) , 2, z) ; 
for (i=0; i<bytecount ; i++) { /* calculate checksum */ 

if (i==0) chksum = (instring[i] & Oxff) & Oxff ; 
if (i>0 ) chksum / '= (instring [i] & Oxff) & Oxff ; 

} 

if ( (chksum! =( (instring [i] & Oxff) & Oxf f ) ) && ( ! AbortEvent ) ) 
Error ( "\pChecksum error . Restart ", "\p" , " \p", "\p" ) ; 
if ( (AbortEvent) && (AbortCount==0) ) { 

Error ("\pBoard Aborted. . . "\p", "\p", "\p") ; 

Abort Count ++ ; 

} 

} 
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ErrorFlag=OxOO; 
line_count++ ; 
Stop_n_Flush () ; 

} 



/* W_MEMORY ( ) 
function : 

- This function perforins the 'Memory Modify' operation. 'Verify' 
option is also available to the user. In this case, a write is 
done to, and following this, a read from that memory location 
is perfomed. Then, the two are compared. 

arguments : 

- step, width 
called by: 

- doFunct ion ( ) /menu . c 
calls : 

- send () /download . c 
Error ( ) / download . c 
CheckError ( ) /download . c 
InputBuf fer () /download. c 



*/ 

wmemory (step, width) 
int step, width ; 

{ 

char c, mm_code=0x05 ; 
int i, j ; 

send (mm_code) ; 

for (i=0; i<=400; i++) ; /* for Timing adjustment */ 

if (Iverify) send (c= (char) (width>>0) ) ; /* send size of the operand*/ 
if (verify ) send (c= (char) ( (width | 0x0080) »0) ) ; 
for (i=24 ; i>=0; i-=8) send (c= (char) (at>>i) ) ; 
switch (width) { 

case 4 : for (i=24 ; i>=0; i-=8) send (c= (char) (value>>i) ) ; 
if (verify) { 

InputBuf fer ( 4 ) ; 

if ( (instring [0] != (c= (char) (value>>24 ) ) ) | | 

(instring [1] ! = (c= (char) (value»16) ) ) | | 

(instring [2 ]! = (c= (char) (value»8 ))) || 

(instring [3 ]! = (c= (char) (value»0 ))) ) { 

Error ("\pVerify Failed, Try Again" , "\p" ," \p" ," \p" ) ; 
at-=step*width; 

) 

} break; 

case 2 : for (i=8; i>=0; i-=8) send (c= (char) (value>>i) ) ; 
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if (verify) { 

InputBuf f er (2 ) ; 

if ( (instring [0] ! = (c= (char) (value>>8) ) ) | | 

(instring [1 ]! = (c= (char) (value»0) ) ) ) { 

Error (" \pVerify Failed, Try Again", "\p", "\p", "\p") ; 
at -=step* width ; 

} 

) break; 

case 1 : send (c= (char) (value>>0) ) ; 
if (verify) { 

InputBuf fer (1) ; 

if ( instring [0] ! = (c= (char) (value»0) ) ) { 

Error ( "\pVerify Failed, Try Again", "\p", "\p", "\p" ) ; 
at -=step* width; 

} /* If Verify fails, do not increment /decrement the address */ 
}break; 
default : break; 

} 

at +=step* width; 

CheckError ( ) ; 

ErrorFlag=0x00 ; 

) 



/* GO() 

function : 

- This function performs the 'Go' operation. Program Counter, 
Trace Mode etc., are set by the user in Go Menu. 

arguments : 

called by: 

- doFunct ion () /menu . c 
calls : 

- send () /download . c 
Stop_n_Flush ( ) / download . c 
sendregs ( ) /monitor . c 
SendFloat ( ) /monitor . c 
CheckError ( ) / download . c 
InputBuf fer ( ) / download . c 
CopyRegs ( ) /download . c 
CopyBrkCnts ( ) /download . c 
ltoa ( ) /monitor . c 

Error ( ) / download . c 
CopyFloat ( ) /monitor . c 

*/ 

.30 () { 

char c, s [21 ] , go_code=0x02 ; 
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int i, j; 

long Save_PC, long_locl=0, long_loc2=0; 



Stop_n_Flush () ; 
if ( ! WillGoTo) { 
go_code=0x03 ; 

Save_PC=registers [ 18 ] ; /* In case of Call */ 

} 

send (go_code) ; 

for (i=0; i<=400; i++) ; 

send (DisplaySteps) ; 

/* Send Breakpoints */ 

for (i=0; i<5; i++) { 

if (BreakTimes [i] ==0) for ( j=0; j<4 ; j++) send(OxOO); 

if (BreakTimes [i]==l) f or ( j=24 ; j>=0; j-=8) send (c= (char ) (Breaks [i] »j) ) ; 
if (BreakTimes [i] >1) for ( j=24; j>=0; j-=8) send (c= (char) (Breaks [i] »j) ) ; 

} 

/* Send BreakCounts */ 



f or ( i=0; i<5 ; i++) { 

if (BreakTimes [i] >1) 

for ( j=8; j>=0; j — =8 ) send (c= (char) (BreakTimes [i] »j) ) / 
else { 

send (0x00) ; 
send (0x00) ; 

} 



} 



sendregs ( ) ; 

if (Coprocessor) SendFloat () ; 

CheckError ( ) ; 
if ( ! ErrorFlag) { 

if (Coprocessor) InputBuffer (107+12+96) 
else 

InputBuffer (107) ; 

CopyRegs ( ) ; 

CopyBrkCnts ( ) ; 
if (instring [106] ==0x55) { 



/* 

/* 

/* 



Send Register info. 
Send 68020 Registers 
Send 68881 Registers 



/* Copy 68020 Registers 



ltoa (registers [18] , s, 8) ; 

Error ( "\pPrivilege violation ","\p At address ", s, "\p ") 



} 

if ( ! WillGoTo) registers [18] =Save_PC; 

if (Coprocessor) CopyFloat ( 107) ; /* Copy 68881 Registers 

} 



*/ 

*/ 

*/ 



*/ 



*/ 



ErrorFlag=0x00; 
Stop_n_Flush () ; 
} 



/* HELP() 
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function : 

- This function displays help information on the screen, 
arguments : 

called by: 

- doFunction ( ) /menu . c 
calls : 

- print () /monitor . c 



*/ 

help ( ) { 
print ( "\pl- 
print ( "\p 
print ( "\p 
print ( "\p2- 
print ( "\p 
print ( "\p 
print ( "\p3- 
print ( "\p 
print ( "\p 
print (" \p4- 
print ( "\p 
print ("\p5- 
print ( "\p 
print ( "\p 
print ( "\p 
print ( "\p6- 
print ( "\p 
} 



If you want to use Coprocessor instructions, you\n") ; 
need to select Coprocessor option. This can be done\n") ; 
in Options MenuAn"); 

If you want to have a printout of what you see, \n") ; 
you need to select Hardcopy option. This can be done\n" ) 
in Options MenuAn") ; 

If you can not select Supervisor State to work in,\n"); 
you need to select Experienced option. This can be done\n") ; 
in Options MenuAn"); 

User is not allowed to set the Interrupt Level, to\n") ; 
a value greater than 3 An"); 

If you suspect that your program, running on the\n" ); 

ECB, seems to be in an endless loop, or out of control, \n") ; 
press Abort Button on the ECB. In this case, you will\n") ; 
see the current register contents An") ; 

If the solution in statement 5 above, won't work, \n") ; 
press Reset Button on the ECB. Also Reset Macintosh . \n") ; 



/* LTOA ( ) 

function : 

- This function converts from long integer to Ascii, 
arguments : 

- l,s,len 
called by: 

- doFunction () /menu . c 

- CheckHex ( ) /menu . c 

- CheckDec ( ) /menu . c 

- go () /Monitor . c 

- printhex() /Monitor. c 

- printhex2 ( ) /Monitor . c 

- printhex3 () /Monitor . c 

- CopyFloat () /Monitor . c 
calls : 

- None 



*/ 
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ltoa (1, s, len) 
char s [21] ; 
long 1; 
int len; 

{ 

int i ; 



for ( i=s [0] =len; i>0; i — ) { 

s [i] = (l&OxOf ) +' O' ;if (s[i]>' 9 ' ) s [i]+=7 
1 = 1 » 4 ; 

} 



/* ITOA ( ) 

function : 

- This function converts from 
arguments : 

- n, s 

called by: 

- doFunct ion () /menu . c 

calls 

- None 

*/ 

itoa (n, s) 
char s [] ; 
int n; 

{ 

int i=l,c,k,l; 
s [ 0 ] =4 ; 

for (i=4; i>=l; i — ) { 

if ( (n%10) ==0) s[i]='0'; 
else 

s [i]=n % 10 + ' O' ; 
n/=l0; 

} 

) 

/* ATOI ( ) 

function : 

- This function converts from 
arguments : 

- s 

called by: 

- doFunct ion () /menu .c 
calls : 

- None 



integer to Ascii. 



Ascii to integer. 
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*/ 

int atoi (s ) 
char s [ ] ; 

{ 

iint i, n; 
n=0; 

for (i=l; i<=s [0] ; i++) n= 10 * n + s[i] - 'O'; 
return (n) ; 

} 

/* ATOL() 

function : 

- This function converts from Ascii to long integer, 
arguments : 

- s 

called by: 

- doFunction ( ) /menu . c 
calls : 

- None 



*/ 

long atol (s ) 
char s [21 ] ; 

{ 

int i ; 
long 1; 

1 = 0 ; 

for ( i=l ; i<=s [ 0 ] ; i++) { 

if(s[i]>'9') s[i]-=7; 

1=< (s [i] - ' 0' ) &0x0f ) + (1«4) ; 

} 

return (1) ; 

} 



/* DOWNLOAD () 
function : 

- This function performs the 'Download' operation. First the 
user program is downloaded to Educational Computer Board. 

Then, the current register values. Coprocessor register values 
(if Coprocessor option is used), are received from the ECB. 

arguments : 

called by: 

- doFunction () /menu . c 
calls : 
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- send ( ) / download . c 

Stop_n_Flush ( ) / download . c 
CheckError ( ) / download . c 
CopyRegs () /download. c 
CopyFloat () /monitor. c 
InputBuffer () /download. c 



*/ 

DownLoad ( ) 

{ 

char *p, bite, down_code=0x00 ; 
int chksum, i; 
long 1; 

Stop_n_Flush ( ) ; 

if (Coprocessor) down_code=0x08 ; /* If Coprocessor is to be used */ 

send (down_code) ; 

for (i=0; i<=400; i++) / /* for Timing purposes */ 

for (p=start ;p<end;p++) { 

if (p==start+8 ) chksum= (bite=*p & Oxff) & Oxff ; 
if (p>start+8 ) chksum /N = (bite=*p &0xff) & Oxff ; 

SerGetBuf (-6, &1) ; 
if (1>0) { 

ErrorFlag=l ; 
break; 

} 

send ( *p) ; 

} 

if ( ! ErrorFlag) send (chksum) ; 

CheckError ( ) ; 
if (! ErrorFlag) { 
if (Coprocessor) { 

InputBuffer ( 96+12 + 96) ; 

CopyRegs () ; CopyFloat (96) ; 

} 

else { 

InputBuffer ( 96) ; 

CopyRegs ( ) ; 

} 

} 

ErrorFlag=0x00 ; 

Stop_n_Flush ( ) ; 

} 

/* PRINTHEX ( ) 
function : 

- This function prints onto the screen in hexadecimal format, 
arguments : 

" l,i 
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called by: 

- DisAsm () /monitor . c 
calls : 

- print () /monitor . c 
ltoa ( ) / monitor . c 



*/ 

printhex (1, i) 
int i; 
long 1 ; 

{ 

char s [21 ] ; 
ltoa (1, s, i) ; 

print (s); DrawChar (' '); 

} 



/* PRINT () 

function : 

- This function prints a string onto the screen, 
arguments : 

- s 

called by: 

- printhex () /monitor . c 

- help () /monitor . c 

- DumptoScreen () /monitor . c 

- DisAsm () /monitor . c 
calls : 

- None 

*/ 

print (s) 
char s [ ] ; 

{ 

int i ; 

Point p; 

for (i=l; i<=s [0] ; i++) { 

if (s [i] ==' \n' ) { 

ScrollRect (&myRect, 0, - (scrollsize+4 ) , myRgn) ; 

MoveTo (4, myRect .bottom-4 0) ; 

} 

else 

DrawChar (s [i] ) ; 

} 

} 



/* PRINTHEX2 ( ) 
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copies th* 



function : 

- This function, together with the 'Print2' function, 
hexadecimal data to the 'PrintBuf' . 

arguments : 

- Ifi/Y 
called by: 

- DisAsm () /monitor . c 

- doFunct ion () /menu . c 

calls 

- print2 () /monitor . c 
ltoa ( ) /monitor . c 



*/ 

prnthex2 (1, i,y) 
int i,y; 
long 1; 

{ 

char s [21 ] ; 
ltoa (1, s, i) ; 
print2 (s, y) ; 

} 



/* PRINT2 () 

function : 

- This function, together with the 'printhex2' function, 
copies the hexadecimal data to the 'PrintBuf' . 

arguments : 

- s,y 
called by: 

- printhex2 () /monitor . c 
calls : 

- None 



*/ 

print2 (s, y) 
char s [ ] ; 
int y; 

{ 

int i; 

for (i=l; i<=s [0] ; i++, y++) { 

if (s [i] ==' \n' ) break; 
else 

PrintBuf [y] =s [i ] ; 

} 

} 
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/* PRINTHEX3 ( ) 



function : 

- This function, together with the 'Print3' function, copies the 
hexadecimal data to the 'PrintBuf' . 

arguments : 

- l/i,y 
called by: 

- dump () /monitor . c 

- memdisp () /menu . c 

calls 

- print3 () /monitor . c 
ltoa ( ) /monitor . c 



*/ 

prnthex3 (1, i, y) 
int i,y; 
long 1 ; 

{ 

char s [21] / 
ltoa (1, s, i) ; 
print 3 (s, y) ; 

} 



/* PRINT3 () 
function : 

- This function, together with the 'printhex3' function, 
copies the hexadecimal data to the 'PrintBuf'. 

arguments : 

" s,y 
called by: 

- printhex3 () /monitor . c 
calls : 

- None 

V 

orint3 (s, y) 

:har s [ ] ; 
int y; 

{ 

Lnt i ; 

Cor (i=l; i<=s [0] ; i++, y++) { 
if (s [i] ==' \n' ) break; 
else 

PrintBuf [y] =s [i ] ; 

} 

PrintBuf [y] =' '; y++; 

s-y; 
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} 



/* SEND_REGS ( ) 
function : 

- This function downloads all the MC68020 Data/Address/Control 
Register contents to the ECB. 

arguments : 

called by: 

- go () /Monitor . c 
calls : 

- send () /download . c 
CheckError ( ) /download . c 



*/ 

sendregs ( ) 

{ 

char outchar; 
int m, chksum; 
long tempbuf=0; 
for (m=0;m<24 ;m++) { 

tempbuf =registers [m] &0xff000000; 
outchar= (char) (tempbuf»24) ; 
if(m==0) chksum = (outchar & Oxff) & Oxff; 
else 

chksum (outchar & Oxff) & Oxff; 
send (outchar) ; 

tempbuf =registers [m] &0x00ff 0000; 
outchar= (char ) (tempbuf»16) ; 
chksum (outchar & Oxff) & Oxff; 
send (outchar) ; 

tempbuf =registers [m] &0x0000f f 00; 
outchar= (char) (tempbuf»8); 
chksum ''“(outchar & Oxff) & Oxff; 
send (outchar) ; 

tempbuf “registers [m] &0x000000f f ; 
outchar= (char) (tempbuf»0) ; 
chksum (outchar & Oxff) & Oxff; 
send (outchar) ; 

) 

send ( (char) chksum) ; 

CheckError ( ) ; 

ErrorFlag=0x00 ; 

} 

/* DUMP TO PRN ( ) 
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function : 

- This function sends the contents of 'PrintBuf' to the printer, 
arguments : 

- index 
called by: 

- doFunct ion () /menu . c 

- dump () /Monitor . c 

- DisAsm () /Monitor . c 

- LastScreen () /Monitor . c 
calls : 

- sendprn () /download. c 



*/ 

DumptoPrn (index) 
int index; 

{ 

int i; 

for (i=0; i<=index; i++) 

sendprn ( (char ) (PrintBuf [i] ) ) ; 

} 



/* DUMP_TO_SCREEN ( ) 
function : 

- This function sends the data, pointed to by 'ptr', to 
the screen. 

arguments : 

- index, ptr 
called by: 

- doFunct ion () /menu . c 

- dump () /Monitor . c 

- LastScreen () /Monitor . c 
calls : 

- None 

'*/ 

DumptoScreen (index, ptr) 
char *ptr; 
int index; 

{ 

char DrwStr[255]; 
int i, j=l; 

Cor (i=0; i<=index; i++) { 

if ( *ptr==0x0d) { 

DrwStr [0)=j-l; 

DrawString (DrwStr) ; j=l; 
print ("\p\n") ; 



87 



ptr +=2; i++; 

} 

else { 

DrwSt r [ j ] = ( *ptr ) ; 
ptr++; j++; 

} 

} 

} 



/* DRAW_X() 
function : 

- This function writes the character into 'PrintBuf' . 
arguments : 

- y 

called by: 

- dump ( ) /Monitor . c 
calls : 

- None 

*/ 

Draw_x (y ) 
int y; 

{ 

PrintBuf [y ] = ' x' ; 

PrintBuf [y+1 ] = ' x' ; 

PrintBuf [y+2 ] =' ' ; 

z=y+3 ; 

} 



/* DIS_ASM() 
function : 

- This function disassembles the code, which is passed to it. 
arguments : 

called by: 

- doFunct ion () /menu . c 
calls : 

- send ( ) /download . c 
print ( ) /monitor . c 
printhex ( ) / monitor . c 
FillQue () /monitor . c 
printhex2 () /monitor. c 
DumptoPrn ( ) /monitor . c 
InputBuffer () /download. c 
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*/ 

DisAsmO 



{ 

char c, Dis_code=0x04 ; 
int Fixcount=12 , i ; 
asm { 

LEA 0 4 4 , AO ; 

MOVE . L AO, HISPC; 

} 

DisAsmOutBuf [0] =80; 
*HISPC=StaDisAdr; 



do { 

send (Dis_code) ; 
for (i=0; i<=400; i++) ; 

for (i=24 ; i>=0 ; i-=8) send (c= (char ) (StaDisAdr>>i) ) ; 
send (c= (char) ( (Fixcount ) >>0) ) ; 

InputBuffer (13) ; 

for (i=0; i<12; i++) DisAsmlnBuf [i]=instring [i] ; 



044 

045 



asm { 

MOVEM.L D0-D7/A0-A7, - (SP) ; 
BRA @45; 

: DC . L 0X00000000; 

LEA DisAsmlnBuf ,A1; 

MOVE . L (Al) +, DO; 

MOVE . L (A1)+,D1; 

MOVE . L (Al ) +, D2 ; 

LEA DisAsmOutBuf , Al ; 

ADD . L # 1 , Al ; 

MOVE . L @44, A2; 

MOVE . L Al , - (SP) ; 

MOVE . L DO, - (SP) ; 

MOVE . L Dl, - (SP) ; 

MOVE . L D2 , - (SP) ; 

MOVE . L A2 , - ( SP ) ; 

MOVE . L SubrAdr , A3 ; 

JSR (A3) ; 

MOVE . L (SP)+,A2; 

LEA @44, A3; 

MOVE . L A2, (A3) ; 

ADD . L #16, SP; 

MOVEM.L ( SP) +, D0-D7/A0-A7 ; 

} 



printhex ( StaDisAdr, 8) ; 
print (DisAsmOutBuf) ; 
print ( "\p\n") ; 
if (NotAfterGo) { 
i=0; 



prnthex2 (StaDisAdr, 8, i) ; 
i+=8; 
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PrintBuf [ 8 ] =' ' ; 

for (i=9; i<88; i++) PrintBuf [ i ] =DisAsmOutBuf [ i — 8 ] / 

PrintBuf [ i] =0x0d; i++; 

PrintBuf [i] =0x0a; 

FillQue (i+1) ; 

if (Hardcopy) DumptoPrn (i) ; 

} 

StaDisAdr= *HISPC; 

} while (StaDisAdr <= EndDisAdr) ; 

NotAfterGo=0 ; 

} 

/* COPY_FLOAT ( ) 
function : 

- This function copies the Floating Point Registers, which 
are uploaded by the ECB. 

arguments : 

- fmWhere 
called by: 

- DownLoad () /Monitor . c 

- go () /Monitor . c 
calls : 

- ltoa () /monitor . c 

- Error ( ) /download . c 



*/ 

CopyFloat ( fmWhere) 
int fmWhere; 

{ 

char instring2 [ 4 ] , NotNumber=0, s [21 ] ; 

int i,j,k,p=0,r; 

r=fmWhere; 

while (p<3) { /* First Copy Coprocessor's control registers */ 

fcregs [p]= 0; 
for ( j=0; j<4; j++) { 

instring2 [ j ] =instring [r ] ; 
r++; 

} 

f or ( j=0 ; j<4 ; j++) fcregs [p] = ( instring2 [ j ] &0xf f ) + ( fcregs [p] <<8) ; 
P++; 

} 

fmWhere=r ; 

for ( j=0; j<8; j++) { 

for ( i=0 ; i<12 ; i++) Fbuf [ i] =inst ring [fmWhere+i+ j *12 ] ; 

fregs [0] [ j ] =Fbuf [ 3 ] +0x30; 

fregs [17] [ j ] = (Fbuf [0 ] &0x0f ) +0x30; 

fregs [18] [ j ] = ( (Fbuf [1 ] »4 ) &0x0f) +0x30 ; 

fregs [19] [ j ]= (Fbuf [1] &0x0f ) +0x30; 

for (r=17 ; r<20 ; r++) 
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if ( (fregs [r] [j]<0x30) | | (fregs [r] [ j]>0x3 9) ) { 

for (p=0;p<20;p++) fregs [p] [j ] =0x30; 

NotNumber=l ; 

ltoa ( (long) ( j) , s,2) ; 

Error ("\pNot A Number ","\por Infinity 

tt 

"\pln FPReg . # ",s); 

} 

if ( ! NotNumber) { 

if ( (Fbuf [0 ] &0x80) ! =0 ) ManSign [ j ] = ' ; 
else 

ManSign [ j ] =' +' ; 

if ( (Fbuf [0]&0x40) ! =0) ExpSign [ j ] = ' ; 
else 

ExpSign [ j ] =' +' ; 

for (i=l, k=4 ; k<12; i+=2,k++) { 

fregs [i] [ j ] = ( (Fbuf [k] >>4 ) & OxOf ) +0x30 ; 

fregs [i+1 ] [ j ] = (Fbuf [k] &0x0f ) +0x30; 

} 

) 

NotNumber=0; 

} 

} 



/* SEND_FLOAT ( ) 
function : 

- This function downloads the Floating Point Registers, to the ECB 
arguments : 

called by: 

- go () /Monitor . c 
calls : 

- send () /download . c 



*/ 

SendFloat ( ) 

{ 

char outchar, chksum; 
int i, j, k; 
long tempbuf; 

for ( j=0; j<3 ; j++) { /* First Send Control, Staus , I Registers */ 

tempbuf=f cregs [ j] &0xf fOOOOOO; 
outchar= (char) (tempbuf >>24 ) ; 
if ( j==0) chksum =(outchar & Oxff) & Oxff; 
else 

chksum A = (outchar & Oxff) & Oxff; 
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send (outchar) ; 

tempbuf=f cregs [j]&0x00ff0000; 
outchar= (char) (tempbuf>>l 6) ; 
chksum A =(outchar & Oxff) & Oxff; 
send (outchar) ; 

tempbuf=f cregs [ j ] & 0x0 00 Of f 00; 
outchar= (char ) (tempbuf>>8) ; 
chksum A = (outchar & Oxff) & Oxff; 
send (outchar) ; 

tempbuf=f cregs [ j ] & 0x0 00 00 Of f ; 
outchar= ( char) (tempbuf>>0) ; 
chksum A = (outchar & Oxff) & Oxff; 

send ( outchar ) ; /* Control registers are sent */ 

} 

for ( j=0; j<8; j++) { 

if (ManSign [ j ) ==' + ' ) Fbuf [0] =0x00 ; 
else 

Fbuf [ 0] =0x80; 

if (ExpSign [ j ] ==' +' ) Fbuf [0]=Fbuf [0] & Oxbf; 
else 



Fbuf [0]=Fbuf [0] | 0x40; 

Fbuf [0] =Fbuf [0] | (fregs[17] [j] - 0x30); 

Fbuf [ 1 ] = ( ( (fregs [18] [ j] -0x30) «4) | (fregs [19] [ j] -0x30) ); 

Fbuf [ 2 ] =0x00 ; 

Fbuf [3] =fregs [0] [j]-0x30; 
for (i=4,k=l; i<12; i++, k+=2) 

Fbuf [i] = ( (fregs [k] [ j] -0x30) «4) | (fregs [k+1] [ j] -0x3 0) ; 
for (k=0 ; k<12 ; k++) { 

send (Fbuf [k] ) ; /* Send Floating Point Registers */ 

chksum /N =(Fbuf[k] & Oxff) & Oxff; 

} 



) 

send (chksum) ; 

} 



/* LAST_SCREEN ( ) 
function : 

- This function displays the latest screen-full information, 
arguments : 

- k 

called by: 

- doFunct ion () /menu . c 

- HandleEvent () /download. c 
calls : 

- DumptoPrn () /monitor . c 

- DumptoScreen () /monitor . c 



*/ 
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LastScreen (k) 
int k ; 

{ 

int i, lineNum; 
long difference; 
if (k ! =2) { 

Tail=Head; 
lineNum=0; 
for ( ; ; ) { 

if (lineNum>20) { 

Tail+=2; break; 

} 

if (TaiK StartQue) { 

Tail=EndQue; 
if (Reach) { 

Tail=St artQue ; break ; 

} 

} 

if ( (*Tail) ==0x0a) lineNum++; 

Tail — ; 

} 

dif ference=Head-Tail+lL; 
if (dif ference<0) 

dif ference= ( (EndQue-Tail) + (Head-StartQue ) ) +2L; 
for (i=0; i< (int ) (dif ference) ; i++) { 

PrintBuf [ i] =*Tail; 

Tail++; 

if (Tail>EndQue) Tail=Start.Que; 

} 

EraseRect (SmyRect) ; 

DumptoScreen ( ( (int) (difference) -2) , SPrintBuf [0] ) ; 
if (k) DumptoPrn ( ( (int) (difference) -2) , &PrintBuf [0] ) ; 
} 

} 



/* FILL_QUE ( ) 
function : 

- This function adds the latest data to the circular queue, 
arguments : 

- index 
called by: 

- doFunct ion () /menu . c 

- dump () /Monitor . c 

- DisAsm () /Monitor . c 
calls : 

- None 



V 
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FillQue (index) 
int index; 

{ 

int i ; 

for (i=0; icindex; i++) { 

if (Head>EndQue) { 
Head=St art Que ; 
Reach=0; 

} 

*Head=PrintBuf [ i ] ; 
Head++; 

) 
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iv. 



Source code of disasm.c 



Dassy ( ) 



{ 

extern long *SubrAdr; 



/* 

BUFSIZE 

EOT 

FDATA 

FOC 

FOP 

LOCVARSZ 

asm{ 



EQU 


80 




; SIZE OF OUTPUT BUFFER 


EQU 


4 




r 


EQU 


4 




; DATA FIELD 


EQU 


31 




; OP -CODE FIELD 


EQU 


39 




; OPERAND FIELD 


EQU 


16 








*/ 






MOVEM.L D0-D7/A0- 


A7,-(SP) ; 


LEA 


0DECODE, AO 


f 




MOVE 


. L A0,SubrAdr 






LEA 


0IS2, AO 


r 


THE FOLLOWING CODE (UNTIL THE LINE 


LEA 


0PGM, A4 


r 


/* DISASSEMBLY PROGRAM BEGINS */) , 


LEA 


0ISHIFT, A5 


f 


CALCULATES THE DISPLACEMENT OF A 


LEA 


0ISH1, A6 


r 


ROUTINE HANDLING ANY PARTICULAR 


BSR 


0SUBR 


r 


INSTRUCTION (SUCH AS MOVE, ADD ETC 


LEA 


0ISH2, A6 


r 


FROM THE BEGINNING OF THE PROGRAM. 


BSR 


0SUBR 


f 


THIS DISPLACEMENT VALUE IS THEN 


LEA 


0ISH3, A6 


r 


WRITTEN INTO THE CORRESPONDING 


BSR 


0SUBR 


r 


ENTRY IN TABLE " 0TBL" . 


LEA 


0ISH4, A6 


r 




BSR 


0SUBR 


r 




LEA 


0ISH5, A6 


f 




BSR 


0SUBR 


r 




LEA 


0ISH6, A6 


r 




BSR 


0SUBR 


f 




LEA 


0ISH7 , A6 


r 




BSR 


0SUBR 


r 




LEA 


0ISH8, A6 


e 




BSR 


0SUBR 


r 




LEA 


0FORM1OEX, A5 


r 




LEA 


0F1OEX1, A6 


r 




BSR 


0SUBR 


r 




LEA 


0F1OEX2 , A6 


r 




BSR 


0SUBR 


r 




LEA 


0F1OEX3, A6 


r 




BSR 


0SUBR 


f 




LEA 


0F1OEX4, A6 


f 




BSR 


0SUBR 


r 
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LEA 


0F1OEX5, A6 


BSR 


0SUBR 


LEA 


0F1OEX6, A6 


BSR 


0SUBR 


LEA 


0FORM12, A5 


LEA 


0F121, A6 


BSR 


0SUBR 


LEA 


0F122 , A6 


BSR 


0SUBR 


LEA 


0F123, A6 


BSR 


0SUBR 


LEA 


0F124, A6 


BSR 


0SUBR 


LEA 


0FORM9, A5 


LEA 


0F91 , A6 


BSR 


0SUBR 


LEA 


0FORM8 , A5 


LEA 


0F81, A6 


BSR 


0SUBR 


LEA 


0FORM7 , A5 


LEA 


@F71, A6 


BSR 


0SUBR 


LEA 


0FORM6D, A5 


LEA 


0F6D1, A6 


BSR 


0SUBR 


LEA 


0F6D2, A6 


BSR 


0SUBR 


LEA 


0F6D3, A6 


BSR 


0SUBR 


LEA 


0F6D4, A6 


BSR 


0SUBR 


LEA 


0F6D5, A6 


BSR 


0SUBR 


LEA 


0FORM1O, A5 


LEA 


0F1O1, A6 


BSR 


0SUBR 


LEA 


0F1O2 , A6 


BSR 


0SUBR 


LEA 


0F1O3, A6 


BSR 


0SUBR 


LEA 


0FORM12A, A5 


LEA 


0F12A1 , A6 


BSR 


0SUBR 



LEA @ IMOVEQ, A5 
LEA 0IMVQ1, A6 
BSR 0SUBR 

LEA @IBSR,A5 
LEA 0 IBSR1 , A6 
BSR @SUBR 
LEA 0IBSR2, A6 
BSR 0SUBR 

LEA 0 ICC, A5 
LEA @ ICC1 , A6 
BSR 0SUBR 

LEA 0IDBCC, A5 
LEA 0IDBCC1, A6 
BSR 0SUBR 

LEA 0 SCC, A5 
LEA 0SCC1, A6 
BSR 0SUBR 

LEA 0 IQUICK, A5 
LEA 0 IQUICK1 , A6 
BSR 0SUBR 
LEA 0IQUICK2 , A6 
BSR 0SUBR 

LEA 0FORM6A, A5 
LEA 0F6A1, A6 
BSR 0SUBR 

LEA 0FORM11SL, A5 
LEA 0F11SL1 , A6 
BSR 0SUBR 
LEA 0F11SL2, A6 
BSR 0SUBR 

LEA 0 SCOMMON , A5 

LEA 0 SCOMMON1 , A6 

BSR 0SUBR 

LEA 0SCOMMON2 , A6 

BSR 0SUBR 

LEA 0 SCOMMON 3, A6 

BSR 0SUBR 

LEA 0 SCOMMON 4 , A6 

BSR 0SUBR 

LEA 0 SCOMMON 5, A6 

BSR 0SUBR 



LEA 0SCOMMON6, A6 
BSR 0SUBR 

LEA 0 1 STOP , A5 
LEA 0ISTOP1, A6 
BSR 0SUBR 

LEA 0 IMVFUSP , A5 
LEA 0 IMVFUSP 1,A6 
BSR 0SUBR 

LEA 0 IMVTUSP , A5 
LEA 0 IMVTUSP 1,A6 
BSR 0SUBR 

LEA 0FORM5 , A5 
LEA 0F51 , A6 
BSR 0SUBR 

LEA 0FORM4 , A5 
LEA 0F4 1 , A6 
BSR 0SUBR 

LEA 0 ILINK, A5 
LEA 0 ILINK1 , A6 
BSR 0SUBR 

LEA 0 IMOVEMTR, A5 
LEA 0 IMVMTR1 , A6 
BSR 0SUBR 

LEA 0FORM1 A, A5 
LEA 0F1A1, A6 
BSR 0SUBR 
LEA 0F1A2, A6 
BSR 0SUBR 

LEA 0FORM1 , A5 
LEA 0F11, A6 
BSR 0SUBR 
LEA 0F12 , A6 
BSR 0SUBR 
LEA 0F13 , A6 
BSR 0SUBR 
LEA 0F14 , A6 
BSR 0SUBR 
LEA 0F15 , A6 
BSR 0SUBR 

LEA 0FORM3 , A5 



LEA 


0F31, A6 


BSR 


0SUBR 


LEA 


0F32, A6 


BSR 


0SUBR 


LEA 


0F33,A6 


BSR 


0SUBR 


LEA 


0 IMOVEMFR , A5 


LEA 


0IMVMFR1, A 6 


BSR 


0SUBR 


LEA 


0FORM11, A5 


LEA 


0F111, A6 


BSR 


0SUBR 


LEA 


0IMVTSR, A5 


LEA 


0 IMVTSR1 , A6 


BSR 


0SUBR 


LEA 


0 IMVTCCR, A5 


LEA 


0 IMVTCCR1 , A6 


BSR 


0SUBR 


LEA 


0IMVFSR, A5 


LEA 


0IMVFSR1, A6 


BSR 


0SUBR 


LEA 


0IMOVE, A5 


LEA 


0IMOVE1, A6 


BSR 


0SUBR 


LEA 


0IMOVE2, A6 


BSR 


0SUBR 


LEA 


0IMOVE3, A6 


BSR 


0SUBR 


LEA 


0IMMED, A5 


LEA 


0IMMED1, A6 


BSR 


0SUBR 


LEA 


0IMMED2, A6 


BSR 


0SUBR 


LEA 


0IMMED3, A6 


BSR 


0SUBR 


LEA 


0IMMED4, A6 


BSR 


0SUBR 


LEA 


0IMMED5, A6 


BSR 


0SUBR 


LEA 


0IMMED6, A6 


BSR 


0SUBR 


LEA 


0IMOVEP, A5 



LEA 0IMOVEP1, A6 ; 
BSR 0SUBR 

LEA 0ISETS, A5 ; 
LEA 0ISETS1, A6 ; 
BSR 0SUBR ; 

LEA 0 ISETS2 , A6 ; 
BSR 0SUBR 
LEA 0ISETS3, A6 ; 
BSR 0SUBR 
LEA 0ISETS4, A6 ; 
BSR 0SUBR ; 

LEA 0 ISETD , A5 ; 

LEA 0ISETD1, A6 ; 

BSR 0SUBR 

LEA 0ISETD2, A6 ; 

BSR 0SUBR 

LEA 0ISETD3, A6 ; 

BSR 0SUBR 

LEA 0ISETD4, A6 ; 

BSR 0SUBR ; 

JMP (AO) 

0SUBR : MOVE . L A5,A3 

SUB . L A4 , A3 
MOVE . W A3, (A6) ; 

RTS 



/* DISASSEMBLY PROGRAM BEGINS */ 

/* CALLING SEQUENCE: 

D0,D1,D2 Contains the code to be Disassembled 

A4 = Value of Program Counter for the code 

A5 = Pointer to store data (BUFSIZE = 80 assumed) 

JSR DECODE 
RETURN: 

A4 = Value of Program Counter for next instruction 
A5 = Pointer to line as Disassembled 
A6 = Pointer to End Of Line 

01234567890123456789012345678901234567890123456789 
AAAAAA FDATA . DDDDDDDDDDDDDD FOC . . . . FOP 

*/ 

0PGM : NOP ; BASE ADDRESS THIS MODULE 

/* MOVEM REGISTERS TO EA 
01001D001S 

XXXXXX EFFECTIVE ADDRESS 
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0 

1 

0 . . . . 

1 . . . . 

V 



I IMOVEMFR 


: BSR 


0MOVEMS 




MOVE . L 


#0X0038, D6 




AND. W 


( A4 ) ,D6 




CMP . W 


#0X0020, D6 




BEQ. S 


QIM7788 




MOVE .L 


# 1 , D6 




MOVE .L 


#0, D1 




BRA. S 


@ IM7799 


IM7788 : 


MOVE . L 


#-l,D6 




MOVE .L 


#15, D1 


IM7799 : 


BSR 


@ MOVE MR 




MOVE .B 


#',', <A6) + 




ADD . L 


#2 , D3 




MOVE .W 


( A4 ) ,D4 




MOVE . W 


# 0X1F 4 , D7 




BSR 


@EA 




BRA. S 


0CS16 


* 


MOVEM 


EA TO REG 1ST 


IMOVEMTR : 


: BSR 


QMOVEMS 




ADD . L 


#2 , D3 




MOVE .W 


# 0X7EC, D7 




BSR 


@EA 




MOVE .B 


#',', (A6) + 




MOVE .L 


#1,D6 




MOVE .L 


#0, D1 




BSR 


@ MOVE MR 


CS1 6 : 


BRA 


0CS15 


I STOP : 


MOVE . W 


2 ( A4 ) , DO 




MOVE .B 


#'#' , (A6) + 




MOVE .B 


#'$', (A6) + 




BSR 


0PNT4HX 




BRA 


@ COMMON 4 


IMMED : 


BSR 


(3FORMSIZE 




ADD . L 


#2 , D3 




MOVE .B 


#'#', (A6) + 




CLR.L 


DO 




MOVE. W 


2 ( A4 ) , DO 




MOVE .W 


(A4) ,D1 




LSR . W 


#6, D1 




AND. W 


#3, D1 




BEQ. S 


@ IMMED65 




CMP .B 


# 1 , D1 




BEQ. S 


0IMMED75 




ADD . L 


#2, D3 



WORD 

LONG 

REGISTER TO MEMORY 
MEMORY TO REGISTER 

; SIZE 

1,4 

1,4 

r 

; PREDECREMENT MODE 

;D6 = INCREMENTER (BIT POSITION) 

;D1 = BIT POSITION 

;D6 = DECREMENTER (BIT POSITION) 
;D1 = BIT POSITION 
; BUILD MASK WORD 
/STORE COMMA 



/CONTROL + PREDECREMENT 
; COMMON 
*/ 

/SIZE 

/CONTROL + POSTINCREMENT 
/STORE COMMA 

/ D6 = BIT POSITION INCREMENTER 
/ D1 = BIT POSITION 

/ COMMON 

/ IMMEDIATE 
/HEX 
/ VALUE 

/ADD AND CMP # EOR OR SUB 
/SIZE = 4 
/ IMMEDIATE 

•DO = EXTENSION WORD 



/ BYTE 
/ WORD 

/ .LONG SIZE = 6 
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MOVE .L 


2 (A4 ) , DO 


; DO = LONG EXTENSION WORD 


0IMMED45 : 


BSR 


0HEX2DEC 


; DECIMAL 




MOVE .B 


D5, (A6) + 


; COMMA SEPARATOR 




MOVE 


(A4 ) , DO 


r 




AND. W 


#0X003F, DO 


t 




CMP .W 


#0X003C, DO 


; DESTINATION ADDRESS MODE 111100 




BNE . S 


0 IMMED55 


; NOT FOUND 




MOVE .W 


( A4 ) , DO 


; "SR" ILLEGAL FOR 




AND. W 


#0X4000, DO 


; ADDI SUBI CMP I 




BNE 


0FERROR 


; 0 6 0 0 0400 0C00 




MOVE .W 


(A4) ,D1 


f 




AND . W 


#0X00C0,D1 


r 




CMP . W 


#0X0080, D1 


f 




BEQ 


0FERROR 


; . LONG NOT ALLOWED 




MOVE . W 


( A4 ) ,D1 


} 




BTST.L 


#6, D1 


f 




BNE 


0STAT 


r 




MOVE .B 


#'C' , (A6) + 


;#, CCR FOR ANDI , EORI, ORI 




MOVE .B 


#'C' , (A6) + 


r 




MOVE .B 


# ' R' , (A6) + 


r 




BRA. S 


0CS14 


; COMMON 


6STAT : 


MOVE . B 


#'S' f (A6) + 


; # , SR FOR ANDI, EORI, ORI 




MOVE .B 


#'R' , (A6) + 


r 


0CS15 : 


BRA.S 


3CS14 


; COMMON 


0 IMMED55 : 


BSR 


0EA 


r 




BRA. S 


0CS14 


; COMMON 


0IMMED65 : 


MOVE .L 


DO, D1 


;D1 = XXXXXXXX 




LSR . W 


#8, D1 


;D1 = 00000000XXXXXXXX 




BEQ. S 


0 IMMED7 5 


f 




MOVE . L 


DO, D1 


r 




ASR. W 


#7 , D1 


r 




ADD . W 


# 1 , D1 


; CHECK FOR NEGATIVE 




BNE 


0FERROR 


r 


IMMED75 : 


EXT.L 


DO 


} 




BRA 


0IMMED45 


f 


/* 


BIT 5432109876543210 






.... RRRMMM .... 


DESTINATION REGISTER MODE 








SOURCE MODE REGISTER 




0001 . . . . 




.BYTE 




0011 . . . . 




.WORD 




0010 . . . . 




.LONG 


*/ 


IF BYTE 


SIZE, DESTINATION 


ADDRESS DIRECT NOT ALLOWED. 


0 I MOVE : 


BRA 


0 IMOVEA1 


r 


0ILINK: 


BSR. S 


0FORMREGA 


r 




MOVE .B 


D5, (A6) + 


; COMMA SEPARATOR 




MOVE .B 


#'#', (A6) + 


r 




MOVE . W 


2 (A4 ) , DO 


r 




EXT.L 


DO 


r 
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BSR 


0HEX2DEC 




BRA 


0 COMMON 4 


0FORM1 : 


BSR 


0FORMSIZE 


/* 


NBCD 


TAS 


0FORM1A: 


BSR 


0EA 


0CS14 : 


BRA 


0CS13 


0FORM3 : 


BSR.S 


0FORMREGD 




BRA. S 


0CS13 


0FORM4 : 


MOVE . B 


#('#'), (A6) + 




MOVE . W 


(A4 ) , DO 




AND . L 


#0X0F, DO 




BSR 


0HEX2DEC 




BRA. S 


0CS13 


0FORM5 : 


BSR.S 


0FORMREGA 




BRA. S 


0CS13 


/* 


5432109876543210 




. . . . RRR . , 


. . xxxxxx 


*/ 

0FORM6A: 


MOVE . W 


#0X7E4 , D7 




BSR.S 


0EA1O 




MOVE . B 


D5, (A6) + 




MOVE .W 


(A4 ) , D4 




ROL. W 


#7 , D4 




BSR.S 


0FORMREGA 




BRA. S 


0CS13 


/* 


BIT 5432109876543210 




. . . . DDD . , 


, . XXXXXX 


*/ 

0FORM6D : 


MOVE. W 


#0XFFD, D7 




BSR.S 


0EA1O 




MOVE .B 


D5, (A6) + 




MOVE . W 


(A4 ) , D4 




ROL. W 


#7 , D4 




BSR.S 


0FORMREGD 




BRA. S 


0CS13 


0FORMREGA 


: MOVE . B 


#'A' , (A6) + 


3FORMREG5 


: AND . B 


#0X07, D4 




OR . B 


# (' O' ) ,D4 




MOVE . B 
RTS 


D4 , (A6) + 


3FORMREGD 


: MOVE . B 


#('D'), (A6) + 




BRA 


0FORMREG5 


/* 


BIT 5432109876543210 




.... DDD . , 


DDD 



V 



/ DECIMAL DISPLACEMENT 
/ CLR NEG NEGX NOT TST 
*/ 

/ DATA ALTERABLE ONLY 
; COMMON 
; EXT SWAP 
; COMMON 
/TRAP 



DECIMAL 

COMMON 

UNLNK 

COMMON 



ADDRESS REGISTER 
EFFECTIVE ADDRESS 

/CONTROL ADDRESSING 

/COMMA SEPARATOR 



COMMON 



DATA REGISTER 
EFFECTIVE ADDRESS 

/ CHK DIVS DIVU MULS MULU DATA , ADRESG 

f 

/COMMA SEPARATOR 



COMMON 
FORMAT A@ 



FORMAT D@ 



DATA REGISTERS 
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0FORM7 : 


ROL. 


W 


#7 , D4 


;EXG 




BSR 




0FORMREGD 


r 




MOVE 


.B 


D5, (A6) + 


; COMMA SEPARATOR 




MOVE 


. W 


(A4 ) ,D4 


r 




BSR 




0FORMREGD 


r 




BRA. 


S 


0CS13 


; COMMON 


/* 


BIT 


5432109876543210 






. . . .AAA. 


. . . .AAA 


ADDRESS REGISTERS 


*/ 

0FORM8 : 


ROL. 


w 


#7, D4 


; EXG 




BSR 




0FORMREGA 


r 


0FORM815 : 


MOVE 


.B 


<A6) + 


; COMMA SEPARATOR 




MOVE 


.W 


( A4 ) ,D4 


r 




BSR 




0FORMREGA 


f 


0CS13 : 


BRA 




0CS12 


; COMMON 


/* 


BIT 


5432109876543210 






. . . . 


DDD . , 


AAA 


DATA REGISTER 
ADDRESS REGISTER 


*/ 

0FORM9 : 


ROL. 


W 


#7,D4 


; EXG 




BSR 




0FORMREGD 


; DATA REGISTER 




BRA 




0FORM81 5 


r 


0EA1O : 


BRA 




0EA 


r 



/* 5432109876543210 

AAAAAA 

MMM 

.... RRR 

Oil 

Ill 

000 

0 

1 

00 

01 

10 



EFFECTIVE ADDRESS 
OP -MODE 
D-REGISTER 
WORD EA, A@ 

LONG EA, A0 

EA, D@ BYTE (ADDRESS REGISTER DIREC 
NOT ALLOWED) 

EA, D@ 

D@ , EA 
BYTE 
WORD 
LONG 



ADD <EA>, A0 



*/ 

0FORM1 0EX : MOVE . W 
MOVE . L 
AND . W 
BEQ. S 
CMP.W 
BEQ. S 
CMP.W 
BNE.S 



CMP <EA>, A0 

# OXFFF, D7 
D4 , DO 

#0X01C0 , DO 

0FORM1O3 

#0X01C0,D0 

0FORM1OE3 

#0X00C0 , DO 

0FORM1OE6 



SUB <EA>, A0 

; ADD CMP SUB, ALL MODES ALLOWED 

r 

; 000 

; in 
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STORE PERIOD 



MOVE .B 


(A5) + 


; 011 STORE 


MOVE . B 


#'W' , (A5) + 


f 


BRA. S 


0FORM1OE4 


r 


0FORM1 0E 3 : MOVE . B 


(A5) + 


r 


MOVE . B 


#'L' , (A5) + 


r 


0FORM1OE4 :BSR 


@EA10 


r 


MOVE .B 


D5, (A6) + 


/STORE COMMA SEPARATOR 


MOVE .W 


(A4 ) , D4 


r 


ROL. W 


#7 , D4 


r 


BSR 


0FORMREGA 


; <EA>, A0 


BRA.S 


0CS12 


; COMMON 


0FORM1OE6 :BTST .B 


#0, (A4 ) 


r 


BNE.S 


0FORM1O5 


; 1 D0, <EA> 


BRA.S 


0FORM1O4 


; 0 <EA>, D0 


/* 5432109876543210 






. . . AAAAAA 


EFFECTIVE ADDRESS 




MMM 


OP -MODE 


.... RRR 


D-REGISTER 




0 


EA, D0 




1 


D@ r EA 




.00 


BYTE 




.01 


WORD 




. . 10 


LONG 


*/ 






3FORM10: BTST.B 


#0, (A4 ) 


; AND EOR OR 


BNE.S 


0FORM1O5 


r 


3FORM103: MOVE.W 


#0XFFD, D7 


/DATA ADDRESSING 


3FORM104: BSR 


0FORMSIZE 


r 


BSR 


0EA1O 


; <EA>, D0 


MOVE .B 


D5, (A6) + 


; COMMA SEPARATOR 


MOVE .B 


(A4 ) ,D4 


} 


LSR.B 


#1/ D4 


r 


BSR 


0FORMREGD 


r 


BRA.S 


0CS12 


; COMMON 


3FORM1 05 : BSR 


0FORMSIZE 


;D0, <EA> 


MOVE .B 


(A4 ) ,D4 


r 


LSR.B 


#1, D4 


r 


BSR 


0FORMREGD 


r 


MOVE .B 


D5, (A6) + 


; COMMA SEPARATOR 


MOVE.W 


( A4 ) ,D4 


r 


MOVE.W 


# 0X1FD, D7 


/ALTERABLE MEMORY ADDRESSING 


1 * PEA 


( JMP JSR) 


*/ 


BSR 


0EA1O 


r 


aCS12: BRA 


0 COMMON 


i 


iFORMll: MOVE.W 


#0X7E4,D7 


/CONTROL ADDERSSING 


BSR 


0EA1O 


f 


BRA.S 


0CS12 


/ COMMON 



105 



/* 


JMP JSR 


*/ 


0FORM11SL 


: MOVE . L 


D4, DO 


f 




AND . W 


#0X3F, DO 


} 




CMP . W 


#0X38, DO 


t 




BNE. S 


0FORM112 


r 




MOVE .B 


, (A5) + 


r 




MOVE .B 


#' S' , (A5) + 


r 


0FORM112 : 


CMP .W 


#0X39, DO 


r 




BNE . S 


0FORM114 


r 




MOVE .B 


#' . ' , (A5) + 


r 




MOVE .B 


#'L' , (A5) + 


} 


0FORM114 : 


BRA 


0FORM11 


r 


/* 


BIT 5432109876543210 






.... XXX. 


0. . . 


DATA DESTINATION REGISTER 




. . . .XXX. 


. . . . 1 . . . 


ADDRESS REGISTER 




. . . .XXX. 


00 


BYTE 






01 


WORD 






10 


LONG 






. . . . 0. . . 


DATA REGISTER TO DATA REGISTER 






. . . . 1 . . . 


MEMORY TO MEMORY 






.... oxxx 


DATA SOURCE REGISTER 






.... 1XXX 


ADDRESS SOURCE REGISTER 


*/ 








0FORM12 : 


BSR 


0FORMSIZE 


; ABCD ADDX SBCD SUBX 




BTST 


#3, D4 


r 




BNE. S 


0FORM125 


f 




BSR 


0FORMREGD 


;D0,D0 FORMAT SOURCE 




MOVE .B 


D5, (A6) + 


; COMMA SEPARATOR 




MOVE .B 


( A4 ) ,D4 


r 




LSR.B 


# 1 , D4 


r 




BSR 


0FORMREGD 


; FORMAT DESTINATION 




BRA. S 


0CS11 


; COMMON 


0FORM125 : 


MOVE . B 


#' , (A6) + 


r 




MOVE .B 


#' (' , (A6) + 


r 




BSR 


0FORMREGA 


r 




MOVE .L 


#0X282D2C29, DO 


' 




BSR. S 


0SCHR 


r 




MOVE .B 


( A4 ) ,D4 


r 




LSR.B 


#1/ D4 


r 




BSR 


0FORMREGA 


r 




MOVE .B 


, (A6) + 


r 




BRA. S 


0CS11 


r 


/* 


BIT 5432109876543210 






.... XXX. 


. . . . 1 . . . 


ADDRESS REGISTER DESTINATION 




. . . .XXX. 


00 


BYTE 






01 


WORD 






10 


MLONG 






. . . . 1 . . . 


MEMORY TO MEMORY 
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1XXX 



*/ 

0FORM12A : 



0CS11: 
0IQUICK : 
/* 



*/ 

@ I MOVE Q : 



0SCHR: 



/* 

0IMVFSR: 



/* 

0IMVFUSP : 



/* 

0IMVTSR: 



3IMVT44 : 



ADDRESS SOURCE REGISTER 



BSR 


6 FORMS I ZE 


; CMPM 


MOVE .B 


#' (', (A6) + 


; ( 


BSR 


0FORMREGA 


;A0 


MOVE .L 


#0X282C2B29, DO 


; '(,+>' 


BSR. S 


6SCHR 


; STORE CHARS 


MOVE . B 


(A4 ) ,D4 


f 


LSR.B 


#1,D4 


/ 


BSR 


0FORMREGA 


;A0 


MOVE .B 


#') ' , (A6) + 


r 


MOVE . B 


#'+' , (A6) + 


r 


BRA 


0 COMMON 


f 


BRA 


0IQUICKA 


; ADDQ SUBQ 


BIT 5432109876543210 




0111 . . .0 . 




FIXED 


• . . . RRR . . 




DATA REGISTER 


DDDDDDDD 


SIGN EXTENDED DATA 


MOVE . B 


#'#' , (A6) + 


; IMMEDIATE 


MOVE .W 


( A4 ) , DO 


r 


EXT. W 


DO 


r 


EXT.L 


DO 


r 


BSR 


0HEX2DEC 


; DECIMAL 


MOVE .B 


D5, (A6) + 


; COMMA SEPARATOR 


ROL. W 


#7,D4 


/ 


BSR 


0FORMREGD 


t 


BRA 


0CS11 


; COMMON 


MOVE . B 


DO, (A6) + 


; OUTPUT STRING 


LSR.L 


#8, DO 




BNE 


0SCHR 


; MORE TO OUTPUT 


RTS 




r 


MOVE FROM 


STATUS REGISTER 


(SR) */ 


MOVE . L 


# (0X2C5253) , DO 


; ' , RS' SR, 


BSR 


0SCHR 


t 


BSR 


0EA 


; DATA ALTERABLE 


BRA 


0CS11 


; COMMON 


MOVE FROM 


USP (USER STACK 


POINTER) */ 


MOVE . L 


# (0X2C505355) ,D0 


;USP, ",PSU" 


BSR 


0SCHR 


t 


BSR 


0FORMREGA 


f 


BRA 


0CS11 


; COMMON 


MOVE TO SR (STATUS REGISTER) */ 


MOVE . W 


# OXFFD , D7 


; DATA ADDRESSING 


BSR 


0EA 


r 


MOVE .L 


# (0X52532C) , DO 


; SR "RS, " 


BSR 


0SCHR 


r 
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BRA 



0CS11 



; COMMON 



/* 

0IMVTUSP : 



/* 

0IMVTCCR: 



/* 



*/ 

0 IMOVEP : 



0 IMOVEP 11 



0CS2O : 
0IMOVEP35 



0 IMOVEP 6 6 



MOVE TO USP (USER STACK POINTER) */ 

BSR 0FORMREGA 

MOVE . L # (0X5053552C) ,D0 ; , USP "PSU, " 

BRA 0IMVT44 

MOVE TO CCR (CONDITION CODE REGISTER) */ 

MOVE . W #0XFFD, D7 ; DATA ADDRESSING 

BSR 0EA ; 

MOVE . L # (0X5243432C) ,D0 ;,CCR"RCC," 

BRA 0IMVT44 



BIT 5432109876543210 
0000 . . . 1 . . 001 . . . 

. . . .XXX 

0 

1 

0 

1 

XXX 



MOVE . B 


#' . ' , (A5) + 


MOVE. W 


# (0X4C57) , DO 


BTST 


#6, D4 


BEQ. S 


0 IMOVEP 11 


LSR. W 


#8, DO 


MOVE .B 


DO, (A5) + 


MOVE .B 


(A4 ) , D4 


LSR.B 


#1, D4 


BTST .B 


#7, 1 ( A4 ) 


BEQ. S 


0 IMOVEP 3 5 


BSR 


0FORMREGD 


MOVE .B 


D5, (A6) + 


MOVE . W 


(A4 ) ,D4 


BSR. S 


0 IMOVEP 6 6 


BRA 


0 COMMON 4 


BSR. S 


0 IMOVEP 6 6 


MOVE .B 


D5, (A6) + 


MOVE .B 


( A4 ) , D4 


LSR.B 


#1, D4 


BSR 


0FORMREGD 


BRA 


0CS2O 


MOVE .B 


(A6) + 


MOVE . W 


2 (A4 ) , DO 


BSR 


0PNT4HX 


MOVE .B 


#' (' , ( A6) + 


MOVE . W 


(A4 ) , D4 


BSR 


0FORMREGA 


MOVE .B 


#')', (A6) + 



FIXED 

DATA REGISTER 
MEMORY TO REGISTER 
REGISTER TO MEMORY 
WORD 
LONG 

ADDRESS REGISTER 

;D0, # (A0) 

; "LW" 

; USE "W” 

; USE "L" 

; LENGTH 



D0 , 0XHHHH (A0 ) 
COMMA SEPARATOR 



0XHHHH ( A0 ) ,D0 
COMMA SEPARATOR 



COMMON 4 

FORMAT DISPLACEMENT 
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RTS 




0SCOMMON: 


BRA 


0 COMMON 


@SCC: 


BSR 


0ICCCC 




BSR 


0EA 




BRA 


0SCOMMON 


0IDBCC : 


MOVE . W 


( A4 ) ,D4 




BSR 


0FORMREGD 




MOVE .B 


D5, (A6) + 




MOVE . B 


#' $' , (A6) + 




BSR 


0ICCCC 




BRA . S 


0ICC55 


/* 


BIT 5432109876543210 




0110 .... 






. . . .CCCC 






DDDDDDD0 






1 


*/ 






0ICC : 


BSR 


0ICCCC 


0IBSR : 


MOVE . B 


#'$' , (A6) + 




TST.B 


D4 




BEQ. S 


0ICC55 




MOVE .B 


, (A5) + 




MOVE .B 


#'S' , (A5) + 




EXT. W 


D4 


0 ICC 3 5 : 


EXT.L 


D4 




ADD . L 


A2 , D4 




ADD . L 


#2 , D4 




MOVE .L 


D4,D0 




ASR.L 


#1,D4 




BCS 


0FERROR 




BSR 


0PNT6HX 




BRA 


0 S COMMON 


0ICC55 : 


ADD .L 


#2 , D3 




MOVE .W 


2 (A4 ) , D4 




MOVE .B 


#' (A5) + 




MOVE .B 


#'L' , (A5) + 




BRA 


0ICC35 


/* 


BCHG BCLR BSET BTST 


0ISETD : 


ROL.W 


#7 , D4 




BSR 


0FORMREGD 


0ISETD12 : 


MOVE . B 


D5, (A6) + 




MOVE .W 


( A4 ) , D4 




BSR 


0EA 


3CS18: 


BRA 


0 SCOMMON 


/* 


BCHG BCLR BSET BTST 




1ST WORD 


XX 




2ND WORD 


0000 0000 000Y 



NOP RESET RTE RTR RTS TRAPV 
GET REST OF OP-CODE 
DATA ALTERABLE 

DB — 

COMMA SEPARATOR 
HEX FIELD TO FOLLOW 



FIXED 

CONDITION 

DISPLACEMENT 

ERROR (ODD BOUNDRY DISPLACEMENT) 
; B — 

; BSR BRA 

; 16 BIT DISPLACEMENT 



8 BIT DISPLACEMENT 
SIGN-EXTENDED DISPLACEMENT 
+ PROGRAM COUNTER 
+ TWO 



ODD BOUNDRY DISPLACEMENT 



SIZE 



.L FOR 16 BIT DISPLACEMENT 



*/ 

/DYNAMIC BIT 
/DATA REGISTER 
/COMMA SEPARATOR 

/DATA ALTERABLE 



XXXX EA DATA ALTERABLE ONLY 

YYYY BIT NUMBER 
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*/ 


@ ISETS : ADD . L 


#2, D3 


MOVE .B 


#'#' , (A6) + 


CLR.L 


DO 


MOVE . W 


2 (A4 ) , DO 


MOVE .L 


DO, D1 


LSR.L 


#5, D1 


BNE 


0FERROR 


BSR 


0HEX2DEC 


BRA 


0 ISETD12 


/* BIT 5432109876543210 


.... XXX 






0 




1 




.00 




.01 




.10 


.... 0. . 


.11 


. . . .0. . 


. 11AAAAAA 




. . .0 




. . . 1 


*/ 


0ISHIFT : MOVE . W 


# ( 0X4C52 ) , DO 


BTST 


#8, D4 


BEQ. S 


0 ISHIFT13 


LSR.W 


#8, DO 


@ I SHIFT 13 : MOVE . B 


DO, (A5) + 


MOVE .W 


( A4 ) , DO 


AND. W 


#0X00C0 , DO 


CMP . W 


#0X00C0, DO 


BEQ. S 


0 ISHIFTM1 


BSR 


0FORMSIZE 


ROL. W 


#7 , D4 


BTST 


#12, D4 


BNE.S 


0 ISHIFT33 


AND . B 


#0X07, D4 


BNE.S 


0 ISHIFT23 


OR . B 


#0X08, D4 


0ISHIFT23 : OR . B 


#' O' ,D4 


MOVE .B 


#'#', (A6) + 


MOVE .B 


D4 , (A6) + 


BRA. S 


0 ISHIFT4 4 


0 ISHIFT3 3 : BSR 


0FORMREGD 


0 ISHIFT4 4 : MOVE . B 


D5, (A6) + 


MOVE . W 


( A4 ) ,D4 


BSR 


0FORMREGD 


0CS17 : BRA 


0CS18 


0ISHIFTM1 : MOVE . B 


#' . ' , (A5) + 


MOVE .B 


#'W' , (A5) + 



/ STATIC BIT, SIZE 
; IMMEDIATE 

•GET BIT POSITION FROM 2ND WORD 



; DECIMAL 



IMMEDIATE COUNT/ REGISTER 

RIGHT SHIFT 

LEFT SHIFT 

BYTE 

WORD 

LONG 

WORD (MEMORY) 

EFFECTIVE ADDRESS 

SHIFT IMMEDIATE COUNT 

SHIFT COUNT (MODULO 64) IN DATA REG 

; ' LR' AS- LS- RO- ROX- 

/DIRECTION BIT 

/RIGHT 

/LEFT 

/DIRECTION n L ,f OR "R" 



t 

; MEMORY SHIFT 



; I/R BIT 

; COUNT IN REGISTER 
; IMMEDIATE COUNT 

; CHANGE ZERO TO EIGHT 



; COMMA SEPARATOR 

r 

r 

/ COMMON 
/PERIOD 
/ . WORD 
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BTST 


#11, D4 




r 




BNE 


0FERROR 




; BIT 11 MUST BE ZERO 




MOVE . W 


#0X1FC,D7 


/MEMORY ALTERABLE ADDRESSING 




BSR 


@EA 




r 




BRA 


0CS17 




; COMMON 


3ICCCC: 


MOVE . L 


#0X0F, DO 




/APPEND CONDITION CODE 




AND . B 


( A4 ) , DO 




; DO = CCC 




LSL.L 


#1, DO 




;D0 = CCC*2 




MOVE . L 


AO, - (SP) 




/ 




LEA 


0BRTBL, AO 


r 




ADD . L 


DO, AO 




r 




MOVE . B 


(AO) ,D1 




r 




LSL.L 


#4 , D1 




r 




LSL.L 


#4 , D1 




r 




MOVE . B 


1 (AO) ,D1 




r 




MOVE . L 


(SP ) +, AO 




r 




MOVE. W 


0BRTBL (PC, DO . W) ,D1 


/GET BRANCH MNEMONIC 




MOVE .B 


Dl, ( A5 ) + 




/ (REVERSED) FROM THE TABLE 




LSR. W 


#8, D1 




/AND ADD THE NONBLANK PORTION 




CMP .B 


#' ' , Dl 




/TO THE BUFFER. 




BEQ.S 


0ICCCC9 




r 




MOVE .B 


Dl, (A5) + 




r 


3ICCCC9: 


RTS 






r 


3BRTBL : 


DC . B 


, ' r 




;'T' ,' ' BRA ACCEPTED 




DC . B 


' ' ,'F' 


;, F ,,, , 


f 




DC .B 


' I' , 'H' 


;'H','I' 


f 




DC . B 


'S' , 'L' 


;'L','S' 


f 




DC .B 


'C' ,'C' 


;'C' ,'C 


f 




DC .B 


' S' ,'C' 


;'C' ,' S' 


r 




DC .B 


'E' , 'N' 


;'K' ,'E' 


r 




DC . B 


'Q' , 'E' 


; 'E' , ' Q' 


} 




DC . B 


'C' , 'V' 


;'V' ,'C' 


r 




DC . B 


' S' ,'V' 


;'V' ,' S' 


r 




DC .B 


' 1/ , ' P' 


;'P' ,'L' 


r 




DC .B 


'I' ,'M' 


;'M' ,' I' 


r 




DC . B 


'E' ,'G' 


;'G' ,'E' 


r 




DC . B 


' T' , ' L' 


;'L' ,'T' 


/ 




DC .B 


'T' ,'G' 


; ' G ' , ' T ' 


f 




DC . B 


' E' , ' L' 


; , L , , , E / 


f 


'* 


BIT 5432109876543210 






.... RRRMMM 




DESTINATION REGISTER MODE 










SOURCE MODE REGISTER 


t / 


IF BYTE 


SIZE, ADDRESS DIRECT 


NOT ALLOWED AS SOURCE 


/ 

! IM0VEA1 : 


MOVE . W 


#0XFFF,D7 


/ALL MODES 




BSR 


0EA 




r 




MOVE .B 


D5 , (A6) + 




/COMMA SEPARATOR 




MOVE .W 


( A4 ) , D4 




/ . . . . RRRMMM 



Ill 



/* 



0IMOVE1 9 : 



/* 

0IQUICKA: 



@ IQUICK2 1 



0IQUICK31 

0CS19: 

/* 

*/ 

0FORMSIZE 



0FORM91 : 



LSR . W 


#1,D4 


; RRRMMM 


LSR.B 


#5, D4 


; RRR MMM 


ROR. W 


#8, D4 


; MMM RRR 


LSL.B 


#5, D4 


; MMMRRR 


LSR. W 


#5, D4 


; MMMRRR 


IF . BYTE 


DESTINATION A0 NOT 


ALLOWED * / 


MOVE . W 


#0X1FF, D7 


; DATA ALTERABLE + A0 


MOVE .B 


(A4 ) , DO 


r 


CMP .B 


#0X01, DO 


r 


BNE.S 


0 IMOVE1 9 


; NOT BYTE SIZE 


MOVE . W 


#0X1FD,D7 


; DATA ALTERABLE 


BSR 


0EA 


r 


BRA. S 


0CS19 


; COMMON 


IF BYTE, 


ADDRESS REGISTER 


DIRECT NOT ALLOWED */ 


BSR. S 


0FORMSIZE 


; ADDQ SUBQ 


MOVE .B 


(A6) + 


r 


ROL. W 


#7,D4 


r 


AND .B 


#7 , D4 


r 


BNE.S 


0IQUICK21 


r 


OR . B 


#8 , D4 


; MAKE ZERO INTO EIGHT 


OR . B 


^J 1 

Q 

V 

o 

=#= 


; MAKE ASCII 


MOVE .B 


D4 , (A6) + 


r 


MOVE .B 


D5 , (A6) + 


; COMMA SEPARATOR 


MOVE .W 


(A4 ) , D4 


r 


MOVE .W 


(A4 ) , DO 


r 


AND . W 


#0X00C0,D0 


r 


BEQ. S 


0IQUICK31 


; DATA ALTERABLE 


MOVE . W 


#0X1FF,D7 


; ALTERABLE ADDRESSING 


BSR 


0EA 


r 


BRA 


0 COMMON 


r 


BIT 5432109876543210 
00 


BYTE 




01 


WORD 




10 


LONG 




11 


ERROR 


MOVE .W 


( A4 ) , D2 


r 


MOVE .B 


(A5) + 


; STORE PERIOD 


LSR. W 


#6, D2 


r 


AND. W 


#0X03, D2 


r 


BNE.S 


0FORM91 


r 


MOVE .B 


#' B' , (A5) + 


; STORE "B" 


BRA. S 


0FORM95 


r 


MOVE . B 


#' W' , DO 


r 


CMP.B 


#1, D2 


r 


BEQ. S 


0FORM93 


r 


MOVE .B 


#'L' ,D0 


r 
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CMP .B 


#2 , D2 


r 












BNE.S 


0FE1O 


; FERROR 










0FORM93: 


MOVE . B 


DO, (A5 ) + 


; STORE "W" 


OR "L 


it 






0FORM95 : 


RTS 




r 










0EAOOO : 


BSR 


0FORMREGD 


t 












BTST 


#0, D7 


9 












BEQ. S 


0FE1O 


; FERROR 












RTS 




9 










0EAOO1 : 


BSR 


0FORMREGA 


9 












BTST 


#1, D7 


9 












BEQ. S 


0FE1O 


; FERROR 


THIS 


MODE 


NOT 


ALLOWED 




RTS 




9 










0EAO1O: 


MOVE . B 


#' (', (A6) + 


9 












BSR 


0FORMREGA 


9 












MOVE .B 


#' ) ' , (A6) + 


9 












BTST 


#2 , D7 


9 












BEQ.S 


0FE1O 


; FERROR 


THIS 


MODE 


NOT 


ALLOWED 




RTS 




9 










0EAO11 : 


MOVE .B 


#' (', (A6) + 


9 












BSR 


0FORMREGA 


9 












MOVE .B 


, (A6) + 


9 












MOVE .B 


#'+' , (A6) + 


9 












BTST 


#3, D7 


9 












BEQ.S 


0FE1O 


; FERROR 


THIS 


MODE 


NOT 


ALLOWED 


0EAO11RTS 


: RTS 




9 










0EA1OO : 


MOVE . B 


, (A6) + 


9 












MOVE .B 


#' (', (A6) + 


9 












BSR 


0FORMREGA 


9 












MOVE .B 


#' ) ' , (A6) + 


9 












BTST 


#4 , D7 


9 












BNE 


0EAO11RTS 


9 










0FE1O : 


BRA 


0FERROR 


; THIS MODE 


NOT ALLOWED 




/* 


A4 = POINTER TO FIRST WORD 














D3 = OFFSET TO EXTENSION 














D4 = VALUE TO PROCESS 














D7 = MODES ALLOWED MASK 












*/ 
















3EA: 


MOVE . L 


D4 , DO 


9 












LSR . W 


#3, DO 


9 












AND. W 


#0X7, DO 


9 












BEQ 


0EAOOO 


9 












CMP .B 


# 1 , DO 


9 












BEQ 


0EAOO1 


9 












CMP .B 


#2, DO 


9 












BEQ 


0EAO1O 


9 












CMP .B 


#3, DO 


9 












BEQ 


0EAO11 


9 












CMP .B 


#4, DO 


9 












BEQ 


0EA1OO 


9 
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/* 

/* 



0EA11O5 : 
0EA11O7 : 



0EA11O9 



CMP .B 


#5, DO 


r 




BEQ. S 


0EA1O1 


r 




CMP .B 


#7, DO 


r 




BEQ 


0EA111 


r 




EXTENSION 


WORD 


*/ 




BIT 5432109876543210 






0 




DATA REGISTER 




1 




ADDRESS REGISTER 




. RRR 




REGISTER 




. . . .0. . . . 




SIGN EXT., LOW ORDER 


INT. 


.... 1 ... . 




LONG VALUE IN INDEX REGIS': 


000 . 








DDDDDDDD 


DISPLACEMENT INTEGER 




EA110 




ADDRESS REGISTER INDIRECT 


BTST 


#6, D7 


f 




BEQ 


0FE1O 


;FERROR THIS MODE 


i NOT 


MOVE .B 


0 (A4,D3) ,D1 


r 




LSL.L 


#4,D1 


r 




LSL.L 


#4,D1 


r 




MOVE .B 


1 (A4,D3) ,D1 


r 




AND. W 


#0X0700, D1 


r *■ 




BNE 


0FE1O 


; FERROR BITS 10-8 


MUST 


MOVE .B 


0 (A4,D3) , DO 


; DO = DISPLACEMENT 




LSL.L 


#4, DO 


r 




LSL.L 


#4, DO 


r 




MOVE .B 


1 (A4,D3) , DO 


r 




EXT. W 


DO 


r 




EXT.L 


DO 


r 




BSR 


0HEX2DEC 


/DECIMAL 




MOVE .B 


#' (', (A6) + 


/ ( 




BSR 


0FORMREGA 


; XX (A0 




MOVE . B 


<A6) + 


/XX(A0, 




MOVE .B 


0 (A4,D3) ,D4 


r 




ASR.B 


#4 , D4 


f 




BPL . S 


0EA11O5 


r 




BSR 


0FORMREGA 


r 




BRA. S 


0EA11O7 


f 




BSR 


0FORMREGD 


r 




MOVE . B 


#' . ' , (A6) + 


; XX (A0 , X0 . 




MOVE .B 


0 (A4 , D3 ) ,D4 


/ D4 = R0 




LSL.L 


#4 , D4 


f 




LSL.L 


#4 , D4 


r 




MOVE .B 


1 (A4, D3) , D4 


r 




MOVE . B 


#' W' , DO 


; w 




BTST 


#11, D4 


r 




BEQ. S 


0EA11O9 


r 




MOVE .B 


#' L' , DO 


; l 




MOVE . B 


DO, (A6) + 


r 





IN INDEX I 
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MOVE . B 
ADD . L 
RTS 



(A6) + 

#2 f D3 



) 



★ 

EA101 : 



ADDRESS REGISTER INDIRECT WITH DISPLACEMENT */ 



BTST 


#5 , D7 


,-101000 


DIS (A@ ) 


BEQ. S 


@FE11 


; FERROR 


THIS MODE NOT ALLOWED 


MOVE .B 


0 (A4,D3) , DO 


t 




LSL.L 


#4, DO 


f 




LSL.L 


#4, DO 


t 




MOVE .B 


1 (A4,D3) , DO 


t 




EXT.L 


DO 


r 




BSR 


0HEX2DEC 


/DECIMAL 




ADD . L 


#2, D3 


/SIZE 




BRA 


QEA010 


r 





★ 



/ 

EA111 : 



EA1112 : 



EA1113: 



111000 




111001 




111010 




111011 




111100 




AND .W 


#7 , D4 


BNE . S 


6EA1112 


BTST 


#7 , D7 


BEQ . S 


0FE11 


MOVE . B 


0 (A4,D3) , DO 


LSL.L 


#4, DO 


LSL.L 


#4, DO 


MOVE .B 


1 (A4,D3) , DO 


EXT.L 


DO 


MOVE .B 


*'$' , (A6) + 


BSR 


0PNT8HX 


ADD . L 


#2 , D3 


RTS 




CMP .B 


#1 , D4 


BNE. S 


0EA1113 


BTST 


#8, D7 


BEQ. S 


0FE11 


MOVE .B 


(A6) + 


MOVE .L 


0 (A4,D3) , DO 


BSR 


0PNT8HX 


- MOVE . B 


#' (A6) 


- MOVE . B 


#'L' , (A6) 


ADD . L 


#4 , D3 


RTS 




CMP .B 


#2 , D4 


BNE . S 


0EA1114 


BTST 


#9, D7 


BNE. S 


6EA1113A 



ABSOLUTE SHORT 
ABSOLUTE LONG 

PROGRAM COUNTER WITH DISPLACEMENT 
PROGRAM COUNTER WITH INDEX 
IMMEDIATE OR STATUS REG 



; F ERROR THIS MODE NOT ALLOWED 
; 111000 ABSOLUTE SHORT 



; S IGN EXTENDED VALUE 1,3 

/SIZE + 2 



/FERROR THIS MODE NOT ALLOWED 
/HEX 

/ 111001 ABSOLUTE LONG 

r 

; FORCE LONG @ FORMAT 1,3 */ 

; IE .L 1,3 */ 
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0FE11 : BRA 

0EA1113A : MOVE . B 
LSL.L 
LSL.L 
MOVE .B 
EXT.L 
ADD .L 
ADD .L 
MOVE . B 
BSR 

MOVE .L 
BSR 
ADD . L 
RTS 

0EA1114 : CMP.B 

BNE 

/* 

/* 



0FERROR 
0 (A4,D3) , DO 
#4, DO 
#4, DO 

1 (A4,D3) , DO 
DO 

A2, DO 
#2, DO 

#'$', (A6) + 
0PNT8HX 

# (0X29435028) ,D0 

0SCHR 

#2 , D3 

#3, D4 
0EA1115 



PROGRAM COUNTER WITH INDEX 
5432109876543210 

0 

1 

. XXX 

0 

..IN INDEX REGISTER 

.... 1 

000 



/THIS MODE NOT ALLOWED 
/ 111010 PC+DISPLACEMENT DESTINATION 



/HEX "$" 1,3 

/DESTINATION 

/(PC) ')CP(' 

/STORE WORD 
/SIZE 



i 



DESTINATION (PC, R0 . X) */ 

SECOND WORD 
DATA REGISTER 
ADDRESS REGISTER 
REGISTER 

SIGN-EXTENDED, LOW ORDER WORD INTEGi 

| 

LONG VALUE IN INDEX REGISTER 



*/ 



XXXXXXXX DISPLACEMENT INTEGER 



BTST 


#10, D7 


r 




BEQ 


0FE11 


; FERROR 


THIS MODE NOT ASLLOWED 


MOVE .B 


0 (A4,D3) ,D1 


r 




LSL.L 


#4 , D1 


r 




LSL.L 


#4, D1 


f 




MOVE .B 


1 (A4,D3) ,D1 


f 




AND . W 


#0X0700, D1 


r 




BNE 


0FE11 


/ FERROR 


BITS 10-8 MUST BE ZERO 


MOVE .B 


1 (A4,D3) , DO 


/111100 


DESTINATION (PC, R0 . X) 


EXT. W 


DO 


f 




EXT.L 


DO 


r 




ADD . L 


A2, DO 


r 




ADD . L 


#2, DO 


r 




MOVE .B 


#' $' , (A6) + 


/HEX "$" 


1,3 


BSR 


0PNT8HX 


/DESTINATION 1,3 


MOVE .L 


# ( 0X2C4 3502 8 ) ,D0 


; ' , cp ( ' 




BSR 


0SCHR 


/DES (PC, 




MOVE .B 


0 (A4,D3) ,D4 


r 




LSL.L 


#4 , D4 


r 




LSL.L 


#4 , D4 


r 




MOVE .B 


1 (A4,D3) ,D4 


r 




ROL. W 


#4, D4 


r 
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IEAF25 : 
IEAF27 : 



EAF35 : 



/ 

EA1115 : 



/ 



BTST 


#3, D4 


r 


BEQ. S 


0EAF25 


r 


BSR 


0FORMREGA 


r 


BRA. S 


0EAF27 


r 


BSR 


0FORMREGD 


;DES (PC, R0 


MOVE . B 


#' (A6) + 


; DES (PC, R0 . 


MOVE .B 


0 (A4,D3) ,D4 


9 


LSL.L 


#4 , D4 


r 


LSL.L 


#4,D4 


r 


MOVE .B 


1 (A4 , D3 ) ,D4 


r 


MOVE . W 


# ( 0X4C57 ) , DO 


; ' LW' 


BTST 


#11, D4 


r 


BEQ. S 


0EAF35 


r 


LSR. W 


#8, DO 


9 


MOVE . B 


DO, (A6) + 


/DES (PC, R0 . X 


MOVE . B 


(A6) + 


; DES (PC, R0 . X) 


ADD .L 


#2 , D3 


f 


RTS 




9 


BIT 5432109876543210 






111100 


FIRST WORD #<IMMEDIATE> 


CMP .B 


#4 , D4 


9 


BNE 


0FE11 


;F ERROR 


BTST 


#11, D7 


9 


BEQ 


0FE11 


; FERROR THIS MODE NOT ALLOWED 


MOVE . B 


#'#' , (A6) + 


/ IMMEDIATE 


MOVE . B 


-1 ( A5 ) ,D1 


9 


CMP .B 


#'L' ,D1 


9 


BEQ. S 


0EA11155 


; LONG 


MOVE .B 


0 (A4,D3) , DO 


9 


LSL.L 


#4, DO 


9 


LSL.L 


#4, DO 


9 


MOVE .B 


1 (A4,D3) , DO 


9 


CMP .B 


# ' B' , D1 


9 


BNE. S 


0EA11153 


; . WORD 


BYTE SIZE, 


DATA ALLOWED 




0000 0000 


XXXX XXXX 




1111 1111 


1XXX XXXX 




MOVE . L 


DO, D1 


9 


LSR. W 


#8, D1 


9 


BEQ. S 


0EA11153 


9 


MOVE .L 


DO, D1 


9 


ASR. W 


#7 , D1 


9 


ADD . W 


# 1 , D1 


9 


BNE 


0FE11 


; FERROR 
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0EA11153 : EXT.L 


DO 


f 


BSR 


0HEX2DEC 


r 


ADD . L 


#2, D3 


f 


RTS 




r 


0EA11155: MOVE . L 


0 (A4, D3) , DO 


r 


BSR 


0HEX2DEC 


r 


ADD . L 


#4,D3 


; SIZE 


RTS 




f 


0MOVEMS: MOVE . B 


, (A5) + 


; PERIOD 


MOVE .W 


# ( 0X4C57 ) , DO 


; ' LW' 


BTST 


#6, D4 


r 


BEQ. S 


0MOVEMS2 


r 


LSR . W 


#8, DO 


f 


0MOVEMS2 : MOVE . B 


DO, ( A5) + 


; SIZE 


RTS 




r 


/* MOVEM - 


REGISTER EXPANSION 


*/ 


0MOVEMR : MOVE . W 


2 ( A4 ) ,D2 


;D2 = SECOND WORD 


MOVE .L 


#' ' , DO 


; DO = SPACE 


MOVE . L 


#' /' ,D7 


;D7 = / 


SUB . L 


#1, A6 


; ADJUST STORE POINTER 


MOVE .L 


#' O' ,D5 


;D5 = REGISTER # 


MOVE . W 


# (0X4144) ,D4 


;D4 = REG CLASS 'AD' 


0MOVEMR1 1 : BTST 


Dl, D2 


f 


BEQ. S 


0MOVEMR77 


; BIT RESET 


CMP .B 


( A6) , DO 


; BIT SET 


BNE.S 


0MOVEMR44 


; NOT SPACE 


0MOVEMR3 3 : MOVE . B 


D4 , 1 (A6) 


; REG TYPE 


MOVE .B 


D5, 2 (A6) 


; REG # 


MOVE .B 


#'-' , 3(A6) 


f ~~ 


ADD ♦ L 


#3 , A6 


f 


BRA. S 


0 MOVE MR 8 8 


f 


0MOVEMR4 4 : CMP . B 


(A6) 


f 


BEQ 


0MOVEMR33 


; COMMA SEPARATOR 


CMP .B 


(A6) , D7 


; / SEPARATOR 


BEQ 


0MOVEMR33 


f 


MOVE .B 


D4, 1 (A6 ) 


; REG TYPE 


MOVE .B 


D5, 2 (A6) 


; REG # 


MOVE .B 


#'-' , 3(A6) 


; - SEPARATOR 


BRA. S 


0 MOVE MR 8 8 


r 


0MOVEMR7 7 : CMP . B 


, (A6) 


r 


BEQ. S 


0 MOVE MR 8 8 


; COMMA 


CMP .B 


(A6) , DO 


r 


BEQ. S 


0 MOVE MR 8 8 


; SPACE 


CMP .B 


1 (A6) , DO 


r 


BEQ. S 


0MOVEMR7 9 


; SPACE 


ADD . L 


#3, A6 


r 


0MOVEMR7 9 : MOVE . B 


D7 , (A6) 


; / SEPARATOR 
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BIT POSITION 



3MOVEMR8 8 



JMOVEMR9 4 



iDECODE : 



1DEC311 : 



'* 



•DEC404 : 



'* 



IDEC411 : 



ADD . L 


#1,D5 


r 


ADD . L 


D 6, D1 


; D 1 = : 


CMP .B 


# ' 8' , D5 


r 


BNE 


0MOVEMR11 


r 


CMP .B 


(A6) , DO 


; SPACE 


BEQ.S 


0MOVEMR94 


r 


CMP .B 


1 ( A6) , DO 


; SPACE 


BEQ.S 


0MOVEMR94 


r 


ADD . L 


#3, A6 


r 


MOVE . B 


D7 , (A6) 


;/ s: 


MOVE . B 


#' 0' ,D5 


/RESET 


LSR.W 


#8,D4 


; CHANG: 


BNE 


0MOVEMR1 1 


; MORE 


MOVE .B 


DO, (A6) 


; SPACE 


RTS 




f 


MOVE . L 


2 0 ( SP ) , A5 


f 



MOVE .L 
MOVE .L 
MOVE .L 
MOVE .L 
LINK 
MOVEM.L 
LEA 

MOVE .L 
MOVE .L 
MOVE .L 
MOVE . B 
SUB.L 
BNE 



16 (SP) , DO 
12 (SP) ,D1 
8 (SP) ,D2 
4 ( SP ) , A2 
Al,#-16 

D0-D2/A4, -16 (Al) 

-16 (Al) , A4 

A5, A3 

#80, DO 

A3, A6 

#' ' , (A6) + 

# 1 , DO 
0DEC311 



CREATE A FRAME FOR THE 
CODE AND ITS PC. A4 
POINTS TO THE CODE . 

A3 = START OF OUTPUT BUFFER 



SPACE FILL BUFFER 



CHECK FOR KNOWN ILLEGAL CODES 



MOVE .W 
LEA 

MOVE .L 
ADD . L 
CMP .W 
BEQ. S 
CMP . L 
BNE 



(A4 ) , DO 
0KI , A5 
A5, A6 
#2, A6 
(A5 ) +, DO 
0FE12 
A6, A5 
0DEC4O4 



LOOK FOR MATCH OF OP-CODE 



MOVEM . L 
MOVE .L 
LEA 
LEA 

MOVE . B 
LSL.L 
MOVE .B 
MOVE .B 
LSL.L 



D1-D2 , - (SP) 
#8, D2 
0TBL, A5 
0TBLE, A6 
( A4 ) , DO 
D2, DO 
1 ( A4 ) , DO 
(A5) +,D1 
D2,D1 



# ( 0KIEND-0KI ) =2 
FERROR ILLEGAL CODE 



*/ 

SAVE D1,D2 
8=SHIFT CNT 

A5 = POINTER TO DECODE TABLE 
A6 = POINTER TO END OF TABLE 
FIRST BYTE 

FIRST WORD 
FIRST BYTE 



1 , 4 
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MOVE .B 


(A5 ) +, D1 




AND . W 


Dl, DO 




MOVE .B 


(A5) +,D1 




LSL.L 


D2,D1 




MOVE .B 


<A5) +,D1 




CMP . W 


Dl, DO 




BEQ. S 


0DEC425 




ADD . L 


#4, A5 




CMP .L 


A6, A5 




BNE 


0DEC411 




MOVEM.L 


(SP) +,D1-D2 


0FE12 : 


BRA 


0FERROR 


GDEC425 : 


MOVEM . L 


(SP) +,D1-D2 




CLR.L 


D 6 




MOVE .B 


(A5) +,D6 




LSL.L 


#4, D6 




LSL.L 


#4 , D6 




MOVE .B 


(A5) +,D6 




CLR.L 


D7 




MOVE .B 


(A5) +,D7 




ADD . L 


#1, A5 


/* 


MOVE OP -CODE TO BUFFER 




LEA 


0OPCTBL, AO 


QDEC510 : 


TST 


D7 




BEQ. S 


0DEC53O 


0DEC515 : 


TST .B 


(AO) + 




BPL 


0DEC515 




SUB.L 


# 1 , D7 




BRA 


0DEC51O 


0DEC53O : 


MOVE . L 


#30, DO 




LEA. L 


0 (A3, DO) , A5 


0DEC535 : 


MOVE . B 


(AO) +,D0 




BCLR 


#7, DO 




BNE. S 


0DEC537 




MOVE .B 


DO, (A5) + 




BRA 


0DEC535 


0DEC537 : 


MOVE . B 


DO, (A5) + 


/* 


CALCULATE 


GOTO AND GO 




MOVE .L 


#2 , D3 




LEA 


0PGM, AO/ 




ADD . L 


D6, AO/ 




MOVE .L 


#39, DO 




LEA.L 


0 (A3, DO) , A6 




MOVE . W 


( A4 ) ,D4 




MOVE .B 


#' , ' ,D5 




MOVE . W 


# 0X1FD , D7 




JMP 


(AO) 



/* A4 = POINTER TO DATA IN FRAME 



/FIRST WORD 
/MASK 

/FIRST BYTE 

/FIRST WORD 

/FOUND MATCH 
/UPDATE POINTER 

/MORE TABLE 
/RESTORE D1,D2 

/ILLEGAL INSTRUCTION 1,4 

/RESTORE D1,D2 

/ D6 = (GOTO OFFSET) /4 ILK BYTE 



r 

/ D6 = (GOTO OFFSET) /4 2ND BYTE 
/ D7 = INDEX TO OP-CODE 



*/ 



r 

; AT INDEX 

•MOVE THROUGH FIELD 



; .1,4 

/ A5 = STORE POINTER OP-CODE 1,4 



r 

/END OF MOVE 



r 

*/ 

; D3= SIZE 



; i, 4 

/ A6 = POINTER FOR OPERAND 1,4 

/ D 4 = FIRST WORD 
/ D5 = CONTAINS ASCII COMMA 
/ D7 = DATA ALTERABLE MODES ALLOWED 



CREATED BY 'LINK Al, . . . ' 
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►/ 

J COMMON 4 : 
i COMMON: 



• COMMON35 



'* 

IFERROR : 



IFERROR35 



!FERROR3 9 



IMSG111 : 



IKI: 

'KIEND: 

\1 

\2 

\3 

\4 

TBL : 
■ISH1 : 



A5 = POINTER STORE OP -CODE 
A6 = POINTER STORE OPERAND 
D3 = SIZE = 2 BYTES 
D4 = FIRST WORD 

D7 = ADDRESS MODES ALLOWED (0X1FD) DATA ALTERABLE 



ADD .L 


#2 , D3 


/SIZE = 4 


MOVE . L 


D3, D6 


/D6 = SIZE 


MOVE . B 


#' ' , (A6) + 


/SPACE AS LAST CHAR 


MOVE . L 


A6, A5 


/SAVE END OF BUFFER POINTER 


MOVE . L 


#3, DO 


;i,4 


LEA.L 


0 (A3, DO) , A6 


;1,4 


MOVE . W 


( A4 ) + , D 0 


/GET NEXT WORD OF DATA. 


ADD . L 


#2, A2 


/ADJUST PROG COUNTER. 


BSR 


0PNT4HX 


/FORMAT DATA. (A6) + 


SUB.B 


# 2 , D 3 ; 


/ 


BNE 


0 COMMON 35; 


f 


MOVE * L 


A5, A6 


;A6 = RESTORE END POINTER 


MOVE .L 


A3, A5 


;A5 = BEGINNING OF BUFFER 


MOVE . L 


A2, A4 


; MOVE THE UPDATED PC 


UNLK 


A1 


; TO A4 AND UNDO FRAME. 


MOVE .L 


A2, 4 (SP) 


/ 


RTS 

ILLEGAL 


INSTRUCTION 


t 

* / 


MOVE . L 


#30, DO 


/ .1, 4 


LEA.L 


0 (A3, DO) , A6 


; i,4 


LEA 


0MSG111, A5 


r 


MOVE .B 


(A5) +, DO 


r 


CMP .B 


#4, DO 


t 


BEQ. S 


0FERROR3 9 


t 


MOVE . B 


DO, (A6) + 


t 


BRA 


0FERROR35 


t 


MOVE . W 


( A4 ) , DO 


r 


BSR 


0PNT4HX 


f 


MOVE .L 


#2 , D3 /SIZE 


r 


BRA 


0 COMMON 


r 


DC . B 


' W' , ' O' , 'R' , 'D' ; 


f 


DC . B 


rrrrrrrr. 
r f f r 


r 


DC .B 


'$',4; 


t 


DC. W 


0X4AFB 


; KNOWN ILLEGAL CODES 



MASK 

OP -CODE PATTERN 
GOTO OFFSET 
INDEX TO OP -CODE 

DC . L 0XFEC0E6C0 ;RO 

DC . W 0X0000 
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DC .B 


56 


f 




DC .L 


0XFEC0E4C0 


f 


0ISH2 : 


DC. W 


0X000 


f 




DC .B 


57 


; ROX 




DC .L 


0XFEC0E2C0 


r 


0ISH3 : 


DC. W 


0X0000 


f 




DC .B 


55 


; LS 




DC .L 


0XFEC0E0C0 


r 


0ISH4 : 


DC. W 


0X0000 


r 




DC .B 


54 


; AS 




DC . L 


0XF018E018 


r 


0ISH5 : 


DC. W 


0X0000 


r 




DC . B 


56 


; RO 




DC .L 


0XF018E010 


i 


0ISH6 : 


DC. W 


0X0000 


r 




DC .B 


57 


; ROX 




DC .L 


0XF018E008 


r 


0ISH7 : 


DC. W 


0X0000 


f 




DC .B 


55 


; LS 




DC . L 


0XF01 8E000 


r 


0ISH8 : 


DC. W 


0X0000 


f 




DC .B 


54 


; AS 




DC . L 


0XF0C0D0C0 


r 


0F1OEX1 : 


DC. W 


0X0000 


r 




DC . B 


4 


; ADD 




DC . L 


0XF130D100 


r 


0F124 : 


DC. W 


0X0000 


r 




DC .B 


53 


; ADDX 




DC .L 


0XF000D000 


r 


0F1OEX3 : 


DC . W 


0X0000 


r 




DC .B 


4 


; ADD 




DC . L 


0XF1F8C18 8 


r 


0F91 : 


DC. W 


0X0000 


} 




DC . B 


50 


; EXG 




DC . L 


0XF1F8C14 8 


} 


0F8 1 : 


DC. W 


0X0000 


r 




DC .B 


50 


; EXG 




DC . L 


0XF1F8C14 0 


f 


0F71 : 


DC. W 


0X0000 


r 




DC . B 


50 


; EXG 




DC . L 


0XF1F0C100 


f 


0F121 : 


DC . W 


0X0000 


r 




DC . B 


49 


; ABCD 




DC . L 


0XF1C0C1C0 


r 


0F6D1 : 


DC. W 


0X0000 


f 




DC .B 


48 


; MULS 




DC .L 


0XF1C0C0C0 


} 


0F6D2 : 


DC . W 


0X0000 


r 




DC . B 


47 


; MULU 




DC .L 


0XF000C000 


r 



<EA> A0 
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3F101: 
3F10EX4 : 
3F12A1 : 
3F102 : 
3F10EX5 : 
3F10EX6: 
§F122 : 
3F10EX2: 
3F123 : 
3F6D3 : 
3F6D4 : 
3F103 : 
3IMVQ1 : 
3IBSR1 : 
3IBSR2 : 
3ICC1 : 
jIDBCCI : 



DC. W 


0X0000 


f 


DC . B 


2 


; AND 


DC . L 


0XF0C0B0C0 


r 


DC . W 


0X0000 


r 


DC .B 


6 


; CMP 


DC .L 


0XF138B108 


f 


DC . W 


0X0000 


r 


DC .B 


46 


; CMPM 


DC .L 


0XF100B100 


r 


DC . W 


0X0000 


r 


DC .B 


5 


; EOR 


DC .L 


0XF000B000 


r 


DC. W 


0X0000 


r 


DC .B 


6 


; CMP 


DC .L 


0XF0C090C0 


r 


DC . W 


0X0000 


r 


DC . B 


44 


; SUB 


DC .L 


0XF13 09100 


r 


DC . W 


0X0000 


r 


DC .B 


45 


; SUBX 


DC .L 


0XF0009000 


r 


DC . W 


0X0000 


r 


DC .B 


44 


; SUB 


DC .L 


0XF1F08100 


r 


DC. W 


0X0000 


r 


DC . B 


43 


; SBCD 


DC . L 


0XF1C081C0 


r 


DC. W 


0X0000 


r 


DC .B 


42 


; DIVS 


DC .L 


0XF1C080C0 


r 


DC . W 


0X0000 


r 


DC . B 


41 


; DIVU 


DC . L 


0XF0008000 


t 


DC. W 


0X0000 


r 


DC . B 


40 


; OR 


DC . L 


OXF 1007 000 


r 


DC. W 


0X0000 


r 


DC .B 


39 


; MOVEQ 


DC .L 


0XFF006100 


} 


DC. W 


0X0000 


r 


DC . B 


51 


; BSR 


DC .L 


0XFF006000 


r 


DC. W 


0X0000 


r 


DC .B 


65 


; BRA 


DC .L 


0 XF 0006000 


r 


DC. W 


0X0000 


r 


DC .B 


38 


;B 


DC .L 


0XF0F850C8 


r 


DC. W 


0X0000 


r 


DC .B 


37 


;DB 



<EA> A@ 



<EA> A@ 



1 3 
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DC .L 


0XF0CO5OCO 








0SCC1: DC . W 


0X0000 








DC .B 


36 


s 






DC . L 


0XF1005100 








0IQUICK1: DC . W 


0X0000 








DC . B 


35 


SUBQ 






DC .L 


0XF1005000 








0IQUICK2 : DC . W 


0X0000 








DC . B 


34 


ADDQ 






DC .L 


0XF1C04 ICO 








0F6A1: DC . W 


0X0000 








DC .B 


33 


LEA 






DC . L 


0XF1C04 180 








0F6D5: DC . W 


0X0000 








DC . B 


32 


CHK 






DC . L 


0XFFC04EC0 








0F11SL1: DC . W 


0X0000 








DC . B 


31 


JMP 


i 


4 


DC . L 


0XFFC04E80 








0F11SL2 : DC * W 


0X0000 








DC . B 


30 


JSR 


i/ 


4 


DC . L 


0XFFFF4E77 








0SCOMMON1 : DC . W 


0X0000 








DC . B 


29 


RTR 






DC . L 


0XFFFF4E7 6 








0SCOMMON2 : DC . W 


0X0000 








DC .B 


28 


TRAPV 






DC . L 


0XFFFF4E75 








0SCOMMON3 : DC . W 


0X0000 








DC .B 


27 


RTS 






DC * L 


0XFFFF4E7 3 








0SCOMMON4 : DC . W 


0X0000 








DC . B 


26 


RTE 






DC . L 


0XFFFF4E72 








0ISTOP1: DC . W 


0X0000 








DC .B 


25 


STOP 






DC . L 


0XFFFF4E7 1 








0SCOMMON5 : DC . W 


0X0000 








DC . B 


24 


NOP 






DC . L 


0XFFFF4E7 0 








0SCOMMON6 : DC . W 


0X0000 








DC . B 


23 


RESET 






DC .L 


0XFFF84E68 








0IMVFUSP1 : DC . W 


0X0000 








DC . B 


60 


MOVE FROM 


U 


DC .L 


0XFFF84E60 








0 IMVTUSP 1 : DC . W 


0X0000 








DC . B 


60 


MOVE TO 


USP 


DC . L 


0XFFF84E58 








0F51 : DC.W 


0X0000 
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DC . B 


22 


; UNLINK 




DC . L 


0XFFF84E50 


f 


3ILINK1 : 


DC. W 


0X0000 


r 




DC . B 


21 


; LINK 




DC . L 


0XFFF04E40 


r 


@F41 : 


DC. W 


0X0000 


f 




DC . B 


20 


; TRAP 




DC . L 


0XFF804C80 


t 


IMVMTR1 : 


DC . W 


0X0000 


r 




DC . B 


15 


; MOVEM FROM REGISTERS 




DC . L 


0XFFC04AC0 


r 


3F1A1 : 


DC. W 


0X0000 


r 




DC .B 


19 


; TAS 




DC . L 


0XFF004A00 


r 


3F11 : 


DC . W 


0X0000 


r 




DC . B 


18 


; TST 




DC .L 


0XFFF84 8C0 


r 


3F31 : 


DC. W 


0X0000 


r 




DC . B 


17 


; EXT . L 




DC . L 


0XFFF84880 


/ 


3F32 : 


DC. W 


0X0000 


t 




DC .B 


16 


; EXT . W 




DC .L 


0XFF804 880 


r 


3IMVMFR1 : 


DC. W 


0X0000 


r 




DC .B 


15 


; MOVEA TO REGISTERS 




DC .L 


0XFFF84 84 0 


f 


3F33 : 


DC. W 


0X0000 


f 




DC . B 


14 


; SWAP 




DC .L 


0XFFC04 84 0 


f 


3F111 : 


DC. W 


0X0000 


r 




DC . B 


13 


; PEA 




DC . L 


0XFFC04800 


r 


3F1A2 : 


DC . W 


0X0000 


r 




DC . B 


12 


; NBCD 




DC . L 


0XFFC04 6C0 


f 


3IMVTSR1 : 


DC . W 


0X0000 


r 




DC . B 


59 


; MOVE TO SR 




DC .L 


0XFF004 600 


r 


3F12 : 


DC. W 


0X0000 


f 




DC .B 


11 


} NOT 




DC .L 


0XFFC04 4C0 


r 


3IMVTCCR1 


: DC . W 


0X0000 


r 




DC . B 


59 


; MOVE TO CCR 




DC .L 


0XFF004400 


f 


3F13 : 


DC . W 


0X0000 


r 




DC .B 


10 


; NEG 




DC .L 


0XFF004200 


f 


?F14 : 


DC. W 


0X0000 


f 




DC . B 


9 


; CLR 




DC . L 


0XFFC04 0C0 


f 
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0 IMVFSR1 : 
0F15 : 
0IMOVE1 : 

0 IMOVE2 : 
0IMOVE3 : 

0 IMMED1 : 

0 IMMED2 : 
0IMMED3 : 
0IMMED4 : 
0IMMED5 : 

@ IMMED6 : 
0IMOVEP1 : 
0ISETS1 : 
0ISETS2 : 
0ISETS3 : 
0ISETS4 : 
0ISETD1 : 



DC. W 


0X0000 


DC . B 


59 


DC . L 


0XFF004 000 


DC. W 


0X0000 


DC . B 


8 


DC . L 


0XF0003000 


DC . W 


0X0000 


DC.B 


59 


DC . L 


0XF0002 000 


DC.W 


0X0000 


DC.B 


60 


DC . L 


0XF0001000 


DC.W 


0X0000 


DC.B 


58 


DC . L 


0XFF000C00 


DC.W 


0X0000 


DC.B 


6 


DC . L 


0XFF000A00 


DC.W 


0X0000 


DC.B 


5 


DC .L 


0XFF000600 


DC.W 


0X0000 


DC.B 


4 


DC . L 


0XFF000400 


DC.W 


0X0000 


DC.B 


3 


DC . L 


0XFF000200 


DC.W 


0X0000 


DC.B 


2 


DC .L 


0XFF000000 


DC.W 


0X0000 


DC.B 


1 


DC .L 


0XF1380108 


DC.W 


0X000 


DC.B 


0 


DC .L 


0XFFC008C0 


DC.W 


0X0000 


DC.B 


64 


DC . L 


0XFFC00880 


DC.W 


0X0000 


DC.B 


63 


DC .L 


0XFFC0084 0 


DC.W 


0X0000 


DC.B 


62 


DC . L 


0XFFC00800 


DC.W 


0X0000 


DC.B 


61 


DC .L 


0XF1C001C0 


DC.W 


0X0000 


DC.B 


64 



; MOVE . W FROM SR 

r 

;NEGX 

r 

r 

; MOVE . W 

r 

; MOVE . L 

r 

r 

; MOVE . B 



/CMP # 

f 

; EOR # 

r 

; ADD # 

r 

; SUB # 

r 

; AND # 

r 

;OR # 

r 



; MOVEP 

r 

/ BSET 

r 

; BCLR 

r 

r 

; BCHG 

r 

; BTST 

r 

r 

/BSET 
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DC . L 


0XF1C00180 


0ISETD2 : 


DC. W 


0X0000 




DC . B 


63 ; BCLR 




DC . L 


0XF1C0014 0 ; 


0ISETD3 : 


DC. W 


0X0000 ; 




DC .B 


62 ; BCHG 




DC . L 


0XF1C00100 


0ISETD4 : 


DC. W 


0X0000 ; 




DC .B 


61 ; BTST 


0TBLE : 






0OPCTBL : 








DC . B 


'M' ,'0' , 'V' , 'E' ; 




DC . B 


128 + 'P' O' , 128 + 'R' , " ; 




DC . B 


'N' , 128 + ' D' , ' S' , ' U' 




DC .B 


128 + 'B' , 'A' , 'D' , 128+' ' ; 




DC .B 


'E' , 'O' ,128 + 'R' , 'C' ; 




DC . B 


' M' , 128 + 'P' , ' M' , 'O' 




DC . B 


'V' , 128+'E' , 'N' , 'E' 




DC .B 


'G' , 128 + 'X' , 'O' , ' L' ; 




DC .B 


128+' R' , ' N ' , ' E' , 128+' G' ; 




DC .B 


'N','0' ,128 + 'T' , 'N' 




DC . B 


'B' , 'O' , 128 + 'D' , 'V 




DC . B 


' E' , ' A' , ' . ' ,128+'L' ; 




DC . B 


'S' , 'W' , 'A' , 'P' 




DC . B 


' , 128 + ' W' , 'M' , 'O' ; 




DC .B 


'V' , 'E' ,128+'M','E' ; 




DC . B 


' X' , ' T , ' . ' , 128+' W' ; 




DC . B 


' E' , ' X' , ' T' , ' . ' 




DC . B 


128 + , L , , , T', , S , ,128 + 'T' ; 




DC . B 


' T' , ' A' , ' S' , ' . ' ; 




DC . B 


128 + 'B' , ' T' , ' R' , 'A' 




DC . B 


128+'P' , 'L' , ' I' , 'N' ; 




DC . B 


128 + ' K' , ' U' , ' N' , 'L' 




DC . B 


128 + 'K' , 'R' , 'E' , ' S' 




DC .B 


'E' , 128 + 'T' , 'N' , 'O' 




DC . B 


128 + 'P' , ' S' , 'T' , 'O' ; 




DC . B 


128+' P' , ' R' , ' T' , 128+' E' ; 




DC . B 


'R' , ' T' , 128 + ' S' , ' T' 




DC . B 


'R' , 'A' , 'P' ,128 + 'V' ; 




DC .B 


' R' , ' T' , 128 + 'R' , ' J' 




DC . B 


' S' , 128 + ' R f , ' J' , 'M' 




DC .B 


128+'P' , ' C' , ' H' , ' K' 




DC . B 


' , 128 + ' W' , 'L' , 'E' ; 




DC . B 


' A' , ' . ' , 128 + 'L' , ' A' 




DC .B 


' D' , 'D' , 128 + 'Q' , ' S' 




DC .B 


'U' , 'B' , 128+'Q' , 128+' S' ; 




DC . B 


'D',128+'B', 12 8+' B' ,'M'; 




DC . B 


'O' , 'V' , 'E' , 'Q' ; 




DC .B 


' .',128+'L','0',128 + 'R'; 
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DC .B 


' D' , ' I' , ' V' , ' U' 


r 


DC . B 


' . ' , 128 + 'W' , 'D' , ' I' 


r 


DC . B 


'V' , ' S' , ' . ' , 128+'W' 


f 


DC . B 


' S' , 'B' , 'C' , 128+'D' 


r 


DC . B 


' S' , ' U' , 128 + 'B' , ' S' 


r 


DC . B 


' U' , ' B' , 128 + 'X' , 'C' 


r 


DC . B 


'W , 'P' ,128 + 'M' , ' M' 


r 


DC . B 


' U' , ' 1/ , ' U r , ' 


r 


DC . B 


128 + ' W' ,'M' ,'U' ,'L' 


r 


DC .B 


' S' , ' . ' , 128 + ' W' A' 


r 


DC . B 


'B' ,'C' , 128 + 'D' , ' E' 


r 


DC .B 


'X' , 128 + ' G' , ' B' , ' S' 


r 


DC .B 


128+' R' , ' U' , ' U' , ' L' 


r 


DC . B 


128 + 'L' , ' A' , 'D' , 'D' 


r 


DC . B 


128 + ' X' ,'A’ , 128 + ' S' , 


'L' ; 


DC . B 


128 + ' S' , ' R' , 128 + , 0' , 


'R' ; 


DC . B 


• O' , 128 + ' X' ,'M' ,'0' 


r 


DC . B 


' V' , 'E' , ' , 128 + , B' 


r 


DC .B 


' M' , ' O' , 'V' , ' E' 


r 


DC .B 


' , 128 + ' W' , ' M' , ' O' 


r 


DC .B 


'V' ,'E' ,' , 128 + ' L' 


r 


DC .B 


'B' , 'T' , ' S' , 128+' T' 


r 


DC . B 


'B' , 'C' , 'H' , 128 + 'G' 


r 


DC . B 


'B' , 'C' , 'L' , 128 + 'R' 


r 


DC . B 


'B' , ' S' , 'E' , 128+' T' 


r 


DC . B 


'B' , 'R' , 128 + ' A' , 'E' 


r 



/* PRINT HEX ROUTINES */ 
/* PRINT 8 HEX CHARACTERS */ 
/* DO , D 1 , D2 DESTROYED */ 



0PNT8HX : 



/* 

0PNT6HX: 



/* 

0PNT4HX : 



/* 

0PNT2HX : 



SWAP 


DO 


; FLIP REG HALVES 


BSR . S 


0PNT4HX 


; DO TOP WORD 


SWAP 


DO 


;NOW DO LOWER WORD 


BRA. S 


0PNT4HX 


r 


PRINT 


6 HEX CHARACTERS 


*/ 


SWAP 


DO 


; FLIP REGISTER HALVES 


BSR. S 


0PNT2HX 


r 


SWAP 


DO 


; FLIP BACK REG HALVES 


PRINT4 


HEX CHARACTERS IN DO 


. W */ 


MOVE . W 


DO, D1 


; SAVE IN TEMP 


ROR. W 


#8, DO 


/GET BITS 15-8 INTO LOWER BYTE 


BSR.S 


0PNT2HX 


/PRINT IT 


MOVE .W 


Dl, DO 


/PULL IT BACK 


PRINT 


2 HEX CHARACTERS 


IN DO . B */ 


MOVE . W 


DO , D2 


/SAVE IN TEMP REG 


ROXR . W 


#4, DO 


/FORM UPPER NIBBLE 
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/* 

0PUTHEX: 



QSAVHEX : 
/* 

0PNTZHX : 



0PNTZO : 
0PNTZ1 : 



0PNTZ2 : 

0PNTZ4 : 

0PNTZ3 : 
0PNTZ8 : 



0PNTZ81 : 
0PNTZ9 : 

/* 

0HEX2DEC : 



0PUTHEX 
D2, DO 

DO. NIBBLE TO HEX 

#0X0F, DO 

#0X30, DO 

#0X39, DO 

0SAVHEX 

#7, DO 

DO, (A6) + 

(ZERO SURPRESS) 
D4 

DO, D1 
0PNTZ81 
0PNTZO 
D 1 

0PNTZ81 
#'-' , (A6) + 

#8,D2 
Dl, DO 
D2,D3 
# 1 , D3 
0PNTZ4 
#4, DO 

#OXFFFFFFF, DO 

#1,D3 

0PNTZ2 

#OXF, DO 

0PNTZ3 

D4 

0PNTZ8 

0PUTHEX 

DO, D4 

#1,D2 

0PNTZ1 

D4 

0PNTZ9 
#'0', <A6) + 



BSR.S 
MOVE .W 
CONVERT 
AND . B 
OR . B 
CMP.B 
BLE.S 
ADD 

MOVE . B 
RTS 

PRINT HEX 
CLR.L 
MOVE .L 
BEQ. S 
BPL . S 
NEG.L 
BMI . S 
MOVE . B 
MOVE . L 
MOVE . L 
MOVE .L 
SUB.L 
BEQ. S 
ASR.L 
AND . L 
SUB.L 
BNE 
AND .B 
BNE.S 
TST.B 
BEQ. S 
BSR 

MOVE . B 
SUB.L 
BNE 
TST.B 
BNE.S 
MOVE . B 
RTS 

CONVERT BINARY TO DECIMAL 
MOVEM.L D1-D4/D6-D7, - (A7) 
DO, D7 
0HX2DC 
D7 

0HX2DC57 



0HX2DC: 

3HX2DC0: 



MOVE .L 
BPL. S 
NEG.L 
BMI . S 
MOVE .B 
CLR.W 
MOVE .L 
MOVE . L 
MOVE .L 



#'-' , (A6) + 
D4 

#10, D6 
#1, D2 
D6, Dl 



PUT ASCII INTO PRINT BUFFER 
GET BACK FROM TEMP 
PUT IT IN PRINT BUFFER */ 

SAVE LOWER NIBBLE 
CONVERT TO ASCII 
SEE IF IT IS>9 

ADD TO MAKE 10=>A 
PUT IT IN PRINT BUFFER 

/ 

IS ZERO WHEN SURPRESS ING 
SAVE IN TEMP 
IF ZERO 

CHANGE TO POSITIVE VALUE 

WATCH OUT SPECIAL CASE 0X80000000 

PUT SIGN INTO BUFFER 

8 POSSIBLE CHARACTERS 

UNSAVE IT 

COUNT DOWN FROM HERE 
BACK OFF ONE 
IF NO ROTATE SKIP THIS 
ROTATE LRIGHT 
CLEAR TOP NIBBLE 



SAVE ONLY NIBBLE 

SEE IF STILL SUPPRESSING 

PUT A HEX CHAR IN BUFFER 
MARK AS NON-SURPRESSING MODE 
DO ANOTHER CHAR 

SEE IF ANYTHING PRINTED 

MOVE AT LEAST ONE ZERO 

REG DO PUT IN (A6) BUFFER AS ASCII */ 
SAVE REGISTERS 
SAVE IT HERE 

CHANGE TO POSITIVE 
SPECIAL CASE (-0) 

PUT IN NEG SIGN 
FOR ZERO SURPRESS 
COUNTER 
VALUE TO SUB 
; COUNTER 
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0HX2DC1 : 



0HX2DC2 : 
0HX2DC22 : 



0HX2DC3 : 



0HX2DC4 : 



0HX2DC5 : 



0HX2DC57 : 
0HX2DC6: 



/* 

/* 

0IS2 : 

} 

} 



SUB.L 


#1 , D1 


BEQ. S 


0HX2DC2 


MOVE . W 


D2,D3 


MULU 


#10, D3 


SWAP 


D2 


MULU 


#10, D2 


SWAP 


D3 


ADD. W 


D3,D2 


SWAP 


D2 


SWAP 


D3 


MOVE . W 


D3, D2 


SUB.L 


#1 , D1 


BNE 


0HX2DC1 


CLR.L 


DO 


CMP .L 


D2 , D7 


BLT . S 


0HX2DC3 


ADD . L 


#1, DO 


SUB.L 


D2,D7 


BRA 


0HX2DC22 


TST.B 


DO 


BNE . S 


0HX2DC4 


TST . W 


D4 


BEQ.S 


0HX2DC5 


ADD .B 


#0X30, DO 


MOVE .B 


DO, (A6) + 


MOVE .B 


DO , D4 


SUB.L 


#1, D6 


BNE 


0HX2DCO 


TST. W 


D4 


BNE.S 


0HX2DC6 


MOVE . B 


#'0', (A6) + 


MOVEM . L 
RTS 


( A7 ) + , D1-D4 /D6-D7 



ADJUST - A POWER OF TEN 
IF POWER IS ZERO 
D3=LOWER WORD 

D2=UPPER WORD 

ADD UPPER TO UPPER 

PUT UPPER IN UPPER 
PUT LOWER IN LOWER 
D2=UPPER & LOWER 



HOLDS SUB AMT 

IF NO MORE SUB POSSIBLE 
BUMP SUBS 

COUNT DOWN BY POWERS OF TEN 
DO MORE 
ANY VALUE? 

ZERO SUPPRESS 

BINARY TO ASCII 

PUT IN BUFFER 

MARK AS NON ZERO SUPPRESS 

NEXT POWER 

SEE IF ANYTHING PRINTED 

PRINT AT LEAST A ZERO 
RESTORE REGISTERS 



END OF ROUTINE */ 

DISASSEMBLY PROGRAM ENDS */ 

MOVEM.L (SP) +,D0-D7/A0-A7 
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ir. 



Source code of test . c 



/* ** test.c ** */ 

/* This program determines the start and the end 
addresses for the download. c program, and also 
contains the user program. */ 

char *start, *end; 



:est() { 
asm{ 





LEA 


@1, AO 


r 






MOVE .L 


AO, start 


r 






LEA 


@2, AO 


r 






MOVE .L 


AO, end 


;@2 is already in A0 ... 




LEA 


01, A1 


r 






LEA 


@2, A3 


r 






LEA 


@3, A2 


r 






SUBA . L 


Al, A3 


r 






MOVE .L 


A3, DO 


r 






SUB. W 


#8, DO 


r 






MOVE .W 


DO, (A2) 


; Count of chars to 


be sent 




JMP 


(AO) 


i 




31 : 


DC. W 


0x0000 


r 






DC . W 


0x1000 


/download address.. 


. 


33: 


DC. W 


0x0000 


/contains count of 


chars . . 


/* 


*** USER PROGRAM 


BEGINS *** */ 





/* *** USER PROGRAM ENDS *** */ 

32 : NOP 

} 

} 
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B. SOURCE CODE OF MONITOR PROGRAM. 



/* ** ecb.asm ** */ 



These programs reside in the lower addresses of ROM. At the system 
start-up these routines are copied to RAM. During execution, some of 
the routines run in ROM and some of them run in RAM. 

The Main program loops and waits for any command from Macintosh. Aftei 
receiving the command, the program execution is switched to the desire 
routine. Which in turn, upon its execution returns to Main. 



V 



/* 

/* 



Initialization */ 



Function : 



1- Copies ROM Contents to RAM. 

2- Autovector Level 4 and Level 6 Interrupt Handler Addresjj 
are loaded in their place in Exception Vector Table. 
Also, other defined Vector entries are filled with the 
address of STACKFRAME Routine. The purpose is, just to 
prevent the system from doing undesi^red things and the 
loss of system stack space. 

3- The Stack Allocation is done for SSP,ISP,USP. 

4- Makes PHANTOM Low. 



[ 



*/ 






ROM 


EQU 


$00040000 


PHAN LOW 


EQU 


$00020000 


INTR CHK 


EQU 


$000E0000 


VIOL VEC 


EQU 


$00000020 


TRAC VEC 


EQU 


$00000024 


INTI VEC 


EQU 


$00000064 


INT2 VEC 


EQU 


$00000068 


INT3 VEC 


EQU 


$0000006C 


INT4 VEC 


EQU 


$00000070 


INT5 VEC 


EQU 


$00000074 


INT6 VEC 


EQU 


$00000078 


INT7 VEC 


EQU 


$0000007C 


TRAP VEC 


EQU 


$000000BC 


WORD CON 


EQU 


$0000FFFF 


SEND ZER 


EQU 


$00 0C 8000 


SEND ONE 


EQU 


$00040000 


TBL FPCR 


EQU 


$00000E9C 


TBL FPSR 


EQU 


$00000EA0 


TBL FIAR 


EQU 


$00000EA4 


TBL FPO 


EQU 


$00000EA8 


TBL FP1 


EQU 


$00000EB4 


TBL FP2 


EQU 


$00000EC0 



; FLOATING POINT REGISTERS 
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’BL FP3 


EQU 


$00000ECC 


’BL FP4 


EQU 


$00000ED8 


’BL FP5 


EQU 


$00000EE4 


’BL FP 6 


EQU 


$00000EF0 


’BL FP7 


EQU 


$00000EFC 


’BL DO 


EQU 


$00000F08 


’BL D1 


EQU 


$00000F0C 


’BL D2 


EQU 


$00000F10 


?BL D3 


EQU 


$00000F14 


’BL D4 


EQU 


$00000F18 


?BL D5 


EQU 


$00000F1C 


’BL D6 


EQU 


$00000F20 


’BL D7 


EQU 


$00000F24 


’BL AO 


EQU 


$00000F28 


:bl A1 


EQU 


$00000F2C 


’BL A2 


EQU 


$00000F30 


’BL A3 


EQU 


$00000F34 


’BL A4 


EQU 


$00000F38 


’BL A5 


EQU 


$00000F3C 


’BL A6 


EQU 


$00000F40 


’BL USP 


EQU 


$00000F44 


’BL SSP 


EQU 


$00000F48 


:bl ISP 


EQU 


$00000F4C 


’BL PC 


EQU 


$00000F50 


?BL SRHI 


EQU 


$00000F54 


’BL SR 


EQU 


$00000F56 


)BL VBR 


EQU 


$00000F58 


.’BL CACR 


EQU 


$00000F5C 


’BL CAAR 


EQU 


$00000F60 


’BL SFC 


EQU 


$00000F64 


:ntr ENB 


EQU 


$F8FF 


1ASK 7 


EQU 


$0700 


’RAP 15 


EQU 


$4E4F 


1AXINT 


EQU 


$7FFF 


5RKCOUNT 


EQU 


$0F 



; MC68020 REGISTERS. 



; HIGH ORDER WORD IS ZERO (ie. 
; LOW ORDER WORD IS SR (ie. 



; DEFINED CONSTANTS. 



'* Filling Exception Vector Table Entries */ 



$6FEC) 
$ 6FEE) 



ORG 


$00000000 


r 






LONG 


$00001FFFC 


/INITIAL STACK 


POINTER (ISP) 


LONG 


HERE 


/INITIAL PROGRAM COUNTER. 


LONG 


STACKFRAME+ROM 


; VECTOR 


NUMBER 


02 


LONG 


STACKFRAME+ROM 


; VECTOR 


NUMBER 


03 


LONG 


STACKFRAME+ROM 


/VECTOR 


NUMBER 


04 


LONG 


STACKFRAME+ROM 


/VECTOR 


NUMBER 


05 


LONG 


STACKFRAME+ROM 


/VECTOR 


NUMBER 


06 


LONG 


STACKFRAME+ROM 


/ VECTOR 


NUMBER 


07 


LONG 


VIOLHANDLER+ROM 


/THE ENTRY POINTS TO 



; PRIV. VIOLATION TRACE HANDLER. 
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LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

ORG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

LONG 

/* Initializing 
ORG 



TRACEHANDLER+ROM, 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 
STACKFRAME+ROM 

$00000060 



THE ENTRY POINTS TO TRACE HANDLER. 

VECTOR NUMBER 10 

VECTOR NUMBER 11 

VECTOR NUMBER 12 

VECTOR NUMBER 13 

VECTOR NUMBER 14 

VECTOR NUMBER 15 

VECTOR NUMBER 16 



STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

HANDLER+ROM 

STACKFRAME+ROM 

ABORT+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

S TACKFRAME +ROM 

S TACKFRAME +ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

TRAPH+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

S TACKFRAME + ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 

STACKFRAME+ROM 



; VECTOR NUMBER 24 
/VECTOR NUMBER 25 
/VECTOR NUMBER 26 
/VECTOR NUMBER 27 

/THE ENTRY POINTS TO INTERRUPT HANDLER 
/VECTOR NUMBER 29 

/THE ENTRY POINTS TO INTERRUPT HANDLER 



/VECTOR 


NUMBER 


31 


/VECTOR 


NUMBER 


32 


/VECTOR 


NUMBER 


33 


/ VECTOR 


NUMBER 


34 


/VECTOR 


NUMBER 


35 


/ VECTOR 


NUMBER 


36 


/VECTOR 


NUMBER 


37 


/ VECTOR 


NUMBER 


38 


/VECTOR 


NUMBER 


39 


/ VECTOR 


NUMBER 


40 


/VECTOR 


NUMBER 


41 


/ VECTOR 


NUMBER 


42 


/VECTOR 


NUMBER 


43 


/ VECTOR 


NUMBER 


44 


/ VECTOR 


NUMBER 


45 


/ VECTOR 


NUMBER 


46 



/THE ENTRY POINTS TO TRAP #15 HANDLER. 

/VECTOR NUMBER 48 

/VECTOR NUMBER 49 

/VECTOR NUMBER 50 

/VECTOR NUMBER 51 

/VECTOR NUMBER 52 

/VECTOR NUMBER 53 

/VECTOR NUMBER 54 

/VECTOR NUMBER 55 

/VECTOR NUMBER 56 

/VECTOR NUMBER 57 

/VECTOR NUMBER 58 



the Stack Pointers, and making PHANTOM Low. */ 

$00000400 /THIS ADDRRESS IS THE END OF EXCEPTION 
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; VECTOR TABLE. 



HERE: 


MOVEA . L 


#$00, AO 


/LOAD THE START ADDRESS OF PGM. 


LI : 


MOVE .L 


(AO) , (AO) + 


/COPY ROM CONTENTS TO RAM. 




CMP .L 


#LAST, AO 


r 




BLE 


LI 


f 




NOP 




r 




MOVE .L 


#$00001FC0O,Dl 


/ [D1]<-$1FC00. 




LONG 


$4E7B1803 


/ [USP ] <- [D1 ) . 




MOVE .L 


#$1F800,D2 


/ [D2 ] <-$lF800 . 




LONG 


$4E7B2800 


/ [ SSP ] O [D1 ] . 




ANDI 


#INTR ENB, SR 


/ENABLE INTERRUPTS. 




MOVE .L 


PHAN LOW, DO 


/MAKE PHANTOM LOW, SWITCH TO RAM 



/* End of initialization */ 



/* MAIN Routine Below */ 

/* 

Function: Loops endlessly, waiting for a command from Macintosh. 

Each command, which is sent by the Macintosh, has a special 
code. These codes for the commands are shown below: 



'O' 
' 1 ' 
' 2 ' 
' 3' 
'4' 
'5' 
' 8 ' 



for DOWNLOAD 
for UPLOAD 
for GO 
for CALL 
for MEMDISPLAY 
for MEMWRITE 
for DOWNLOAD 



Command . 
Command . 
Command . 
Command . 
Command . 
Command . 
Command . 



( With Coprocessor Enabled ) . 



After receiving one of these commands, program execution 
is switched to the desired routine. In case of an error. 



in receiving the command byte. Main simply continues to 
loop, as if no command was received. In this case user may 
retry his last command. 



-IAIN 


: 


JSR 


RUART+ROM 






CMP .B 


#0,D3 






BNE . S 


SKIP 0 






BSR 


DOWNLOAD 






BRA 


MAIN 


3KIP_ 


_0 : 


CMP .B 


#1,D3 






BNE . S 


SKIP 1 






BSR 


UPLOAD 






BRA 


MAIN 


3KIP_ 


_1 : 


CMP .B 


#2,D3 






BNE.S 


SKIP 3 






BSR 


GO 


SKIP_ 


_3 : 


CMP .B 


#4 , D3 






BNE.S 


SKIP 4 






BSR 


MEMDISPLAY 



; GET THE COMMAND IN D3 . 

; IS IT DOWNLOAD ? . . 

; IF NOT, CONTINUE TO FIND A MATCH. 

; IF YES, DOWNLOAD. 

/DOWNLOAD DONE, WAIT FOR THE NEXT COMMAND. 
; IS IT UPLOAD ? . . 

; IF NOT, CONTINUE TO FIND A MATCH. 

; IF YES, UPLOAD. 

/UPLOAD DONE, WAIT FOR THE NEXT COMMAND. 

/ IS IT GO ? . . 

/IF NOT, CONTINUE TO FIND A MATCH. 

/IF YES, GO. 

/IS IT MEMDISPLAY ?.. 

/IF NOT, CONTINUE TO FIND A MATCH. 

/IF YES, MEMDISPLAY. 
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BRA 


MAIN 


/MEMDISPLAY DONE, WAIT FOR THE NEXT COMM; 


SKIP 


_4 : 


CMP .B 


#5, D3 


/IS 


IT MEMWRITE ? . . 








BNE. S 


SKIP_5 


/IF 


NOT, CONTINUE TO 


FIND A MATCH. 






BSR 


MEMWRITE 


/IF 


YES, MEMWRITE. 




SKIP 


_5 : 


CMP .B 


#3, D3 


; is 


IT CALL ? . . 








BNE. S 


SKIP 6 


; if 


NOT, CONTINUE TO 


FIND A MATCH. 






BSR 


GO 


/IF 


YES, GO (IN CASE 


OF ' CALL ' IN MAC. ) . 


SKIP 


Jo: 


CMP .B 


#8, D3 


/ IS 


IT DOWNLOAD WITH 


COPROCESSOR ENABLED 






BNE. S 


SKIP 7 


r 










BSR 


DOWNLOAD 


t 






SKIP 


_7 : 


BRA 


MAIN 


GO 


AND WAIT FOR THE 


NEXT COMMAND. 


/* : 


MAIN 


Routine 


Ends */ 









/* Communication Routines (SUART, RUART, DELAY, GETBIT) Below */ 



/* SUART Routine Below */ 

/* 

Function: SUART sends byte data, which is in low byte of D3 . 

Timing is adjusted such that Baud rate of 9600 is obtained. 

Modified 

Registers: D3 is used to pass argument to SUART. Other than that 
register contents are not modified. 



Called by: UPLOAD, FUPLOAD, MEMWRITE, MEMDISPLAY, SCNTS . 

*/ 



SUART: 



AGAIN : 



ONE : 
SKIP : 



MOVEM.L D4-D5, - (SP) 

MOVE . B #8, D5 
JSR SEN D_Z E R+ DE LAY 1 

BTST #0,D3 
BNE . S ONE 

JSR SEND_ZER+DELAY1 

JMP ROM+SKIP 

JSR SEND_ONE+DELAYl 

ROR.B #1, D3 

SUBQ.B #1,D5 

BNE . S AGAIN 

JSR SEND_0NE+DELAY1 

JSR SEND_0NE+DELAY1 

MOVEM.L (SP) +, D4-D5 

RTS 



; BITS TO BE SEND SHOULD BE IN D3 . 
; EIGHT BITS ARE TO BE SENT. 

; SEND START BIT. 

; EVALUATE LEAST SIGNIFICANT BIT. 

/ SEND A ZERO . 

r 

/ SEND A ONE. 

; GET THE OTHER BIT. 



r 

/ SEND FIRST STOP BIT. 

/SECOND STOP BIT. 

/RESTORE ORIGINAL REGISTERS. 



/* SUART Routine Ends */ 



/* DELAY 1 Routine Below */ 
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Function: DELAY1 provides a delay of (1/9600) seconds. Which is 

needed to provide a Baud rate of 9600. 

Modified 

Registers: D4 is modified. But this will not affect the original D4 
value, since it was saved in SUART. 

Called by: SUART. 

*/ 

DELAY1 : MOVE . L #$0A, D4 

LiOOPl: NOP 

NOP 

SUB.L #1,D4 
BGE LOOP1 

NOP 
NOP 
RTS 

'* DELAY1 Routine Ends */ 



t* RUART Routine Below */ 

Function: RUART receives a byte of data from RS232 input, at a Baud 

rate of 9600. 

Modified 

Registers: D3 is modified. It is used to pass the received byte to 
the calling routine. 



Called by: MAIN, DOWNLOAD, LDREGTBL, GO, MEMWRITE, MEMDISPLAY, GETLONG. 

t / 


’ / 

IUART: 


MOVEM . L 


D0-D2/D4-D7, - (SP) ; 


START : 


MOVE . B 


#1,D1 ; SET RECEIVE BUFFER ( BIT # 0 ). 




JMP 


INTR_CHK+NEXT1 ; CHECK RS232_IN, WAIT FOR THE START BIT 


JEXT1 : 


NOP 


r 




NOP 


; ENOUGH DELAY FOR RS232 INTERRUPTS. 




NOP 


r 




JMP 


ROM+EXIT1 ; 




NOP 


r 


CXIT1 : 


CMP .B 


#0, D1 ; IF [Dl]=l, RS232 IN WAS LOW. START BIT 

; CAME. 




BNE . S 


START ; IF [D1]=0, RS232 INPUT WAS HIGH. WAIT FOR 

; THE START BIT. 




MOVE .L 


#0, D6 ; 


jABI : 


DBF 


D 6, LABI 




MOVE .L 


$5AB1,D7 ; 




MOVE .B 


#1 , D1 ; 




JMP 


INTR_CHK+NEXT2 ; CHECK RS232_IN. 


IEXT2 : 


NOP 


r 




NOP 


; ENOUGH DELAY FOR RS232 INTERRUPT 




NOP 


r 



; GET THE DELAY LOOP COUNT IN D4 . 

; TH I S COUNT AND NOPs ASSURE A BIT TIME 
; OF (1/9600) SECONDS. 

; DELAY1 IS CALLED BY SUART, SINCE IT SAVES 
; D4 WE DON'T NEED TO SAVE D4 HERE. 



r 

; RETURN FROM DELAY1 SUBROUTINE 
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JMP 

NOP 


ROM+EXIT2 


EXIT2 : 


CMP .B 


#0, D1 




BNE. S 


START 




MOVE . L 
NOP 


#7 , D6 


LAB 2 : 


DBF 


D6, LAB 2 




MOVE . L 


$5AB2,D7 




CLR.B 


D3 




MOVE .B 


#8, D2 


CIRC: 


JSR 


ROM+GETBIT 




OR . B 


D1,D3 




ROR.B 


#1,D3 




MOVE .L 


$5AB3,D5 




SUB.B 


#1, D2 




BNE.S 


CIRC 



; IF [D1 ] =1 , RS232 IN LOW. START BIT CAME 
; IF [D1 ] =0, NO RS232 IN. PREVIOUS START lj 
/ WAS SPURIOUS. WAIT FOR START BIT. 

; START BIT RECEIVED. NOW START TO RECEIV1 
/ FOLLOWING BITS. 

/ THE BITS WILL BE SHIFTED INTO D3 . 

; 8 IS THE NUMBER OF BITS TO BE RECEIVED. 

; GET NEXT BIT. 

/GET THE BIT INTO D3. 



; AT THE EXIT POINT WE ARE ALREADY ON THE 
/ STOP BIT #1. RECEIVING THE BITS ENDS HIE 
; NOW CHECK STOP BITS. 



PASS1 : 



PASS2 : 



MOVE .B 
JSR 
BTST 
BNE . S 
JSR 

MOVEM . L 
JMP 



D3 , $5AB4 
ROM+GETBIT 
# 0 , D1 
PASS1 

SENDERROR+ROM 
(SP) + ,D0-D2/D4- 
MAIN 



CHECK FIRST STOP BIT. 



JSR 
BTST 
BNE . S 
JSR 

MOVEM . L 
JMP 

MOVEM . L 
RTS 



ROM+GETBIT 
#0, D1 
PASS2 

SENDERROR+ROM 
(SP) +, D0-D2/D4' 
MAIN 

(SP) +,D0-D2/D4- 



IF IT CAME CHECK FOR THE SECOND STOP BD 
/SEND RECEIVE ERROR TO MACINTOSH. 

D7 / AND 

/ RETURN TO MAIN LOOP, WAIT FOR NEXT 
COMMAND . 

/CHECK SECOND STOP BIT. 



/SEND RECEIVE ERROR TO MACINTOSH.. 

■D7 / AND . . . 

/RETURN TO MAIN LOOP, WAIT FOR NEXT COMM 
■D7 / 



/* RUART Routine Ends */ 



/* GETBIT Routine Below */ 

Function: GETBIT receives a "bit" of data from RS232 input, at a Baud 

rate of 9600. It senses the RS232 input. 

Modified 

Registers: D1 is modified. It is used to pass the received bit to 
the calling routine. 

Called by: RUART. 

*/ 
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;ETBIT: 



NEXT3 : 



EXIT3 : 



SKIPO : 



MOVEM.L D5-D6, - (SP) 

MOVE . B #1, D1 

MOVE . L $5AB5, D5 

JMP INTR_CHK+NEXT3 

NOP 

NOP 

NOP 

JMP ROM+EXIT3 

NOP 

MOVE . L $5AB6, D5 
MOVE . L #1 , D6 
BTST #0, D1 
BEQ.S SKIPO 
MOVE . L #5, D6 
DBF D6, SKIPO 

MOVE . L #2 , D6 
DBF D6, AD J 

MOVE . L $5AB7,D5 
MOVEM.L (SP) + , D5-D6 
RTS 



CHECK RS232 INPUT. 

PROVIDE ENOUGH DELAY FOR RS232 INTERRUPT. 



WITH THIS MOVE . L TO D5, THE FOLLOWING DBF 
INSTRUCTIONS WITH 2 DIFFERENT COUNTS IN 
D6 GUARANTEES THE SAME AMOUNT OF DELAY 
IN CASE OF AN INTERRUPT OCCURRENCE OR NOT. 



/* GETBIT Routine Ends */ 



/* Communication Routines (SUART, RUART, DELAY, GETBIT) Ends */ 



/* FLTCLR Routine Below */ 



Function: FLTCLR initializes the Coprocessor's control and data 

registers to zero. After power-up, the Coprocessor's 
registers contain ( $7FFF 000F FFFF FFFF ) in Packed Format. 
FLTCLR clears all Floating Point registers. 



Modified 
Registers : 


None . 


Called by: 


DOWNLOAD 


:LR : WORD 


$F23C 


WORD 


$4000 


WORD 


$0000 


WORD 


$0000 


WORD 


$F23C 


WORD 


$4080 


WORD 


$0000 


WORD 


$0000 


WORD 


$F23C 


WORD 


$4100 


WORD 


$0000 


WORD 


$0000 


WORD 


$F23C 



FMOVE.L #0, FPO 



FMOVE.L #0, FP1 



FMOVE.L #0 , FP2 



FMOVE.L #0, FP3 
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WORD 


$4180 


WORD 


$0000 


WORD 


$0000 


WORD 


$F23C 


WORD 


$4200 


WORD 


$0000 


WORD 


$0000 


WORD 


$F23C 


WORD 


$4280 


WORD 


$0000 


WORD 


$0000 


WORD 


$F23C 


WORD 


$4300 


WORD 


$0000 


WORD 


$0000 


WORD 


$F23C 


WORD 


$4380 


WORD 


$0000 


WORD 


$0000 


RTS 





r 

; FMOVE . L #0,FP4 

r 

t 

r 

; FMOVE. L #0,FP5 

r 

r 

r 

/ FMOVE. L #0, FP6 

r 

r 

; FMOVE. L #0,FP7 



/* FLTCLR Routine Ends */ 



/* DOWNLOAD Routine Below */ 



Function: DOWNLOAD, Downloads the bytes (in user program), 

which are sent by the Macintosh. 

Modified 
Registers: None. 



Called by: MAIN. 

*/ 



DOWNLOAD : 



DLOAD : 
LAB 9 9 : 



MOVE . B # 0 , COP_ENB 
BTST.B #3, D3 
SNE COP_ENB 

MOVEM.L D0-D7/A0-A7, - (SP) 
JSR GETLONG 

MOVEA.L D3,A1 
MOVE . L #8, D6 
JSR RUART+ROM 

LSL.L D6,D3 
JSR RUART+ROM 

AND . L #$0000FFFF, D3 
MOVE . L D3, DO 



MOVE . L A1,A3 
MOVE . L DO, D4 
JSR RUART+ROM 



COPROCESSOR ENABLED BY USER ? 

..YES, SET COPROCESSOR ENABLED FLAG. 

D3 DOWNLOAD ADDRESS. 

[Al]<- LOAD ADDRESS 

COUNTER TO SHIFT LOW BYTE TO HIGH BYTE 
GET HIGH BYTE OF COUNT. 

MOVE LOW BYTE TO HIGH. 

GET LOW BYTE OF COUNT. 

CLEAR HIGH WORD. 

[DO] <- COUNT. 

THE NUMBER OF BYTES TO BE DOWNLOADED AR) 
EQUAL TO COUNT IN DO ABOVE. 

NOW START TO RECEIVE COUNT NUM. OF BYTE. 
; SAVE LOAD ADDRESS FOR CHECKSUM CALCULA' 
SAVE COUNT FOR CHECKSUM CALCULATION. 
LOAD THE USER PROGRAM. 
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LAB88 : 



SKP_CO : 

: ERROR: 



MOVE .B 

SUB.W 

BNE . S 

JSR 

MOVE .B 

MOVE . L 

MOVE .B 

SUB.W 

MOVE .B 

EOR.B 

SUB.W 

BNE.S 

CMP .B 

BNE . S 

BSR 

BSR 

BSR 

TST.B 

BEQ. S 

BSR 

BSR 

MOVEM . L 

RTS 

JSR 

MOVEM . L 
RTS 



D3, (Al) + 

#1 , DO 
LAB 9 9 
RUART+ROM 
D3,D5 
A3, Al 
(Al) +,D0 
#1, D4 
(Al) +,D6 
D6, DO 
# 1 , D4 
LAB 8 8 
D5, DO 
C_ERROR 
FLTCLR 
UPDATETBL2 
UPLOAD 
COP_ENB 
SKP_C0 
UPDTFLTBL 
FUPLOAD 

(SP) +, D0-D7/A0- 

SENDERROR+ROM 
(SP) +, D0-D7/ AO 



GET CHECKSUM. [D3 .B]<- CHECKSUM. 
SAVE RECEIVED CHECKSUM IN [D5.B]. 
RETRIEVE LOAD ADDRESS. 

BEGIN TO CALCULATE CHECKSUM. 



CHECKSUM CALCULATION DONE HERE. 

COMPARE RECEIVED & CALCULATED CHECKSUMS. 
IN CASE OF ERROR ALERT MACINTOSH. 

LOAD REGISTER TABLE WITH CURRENT VALUES. 
SEND THESE VALUES TO MACINTOSH . 



■A7; 

; RETURN TO CALLER. 

-A7, 



/* DOWNLOAD Routine Ends */ 



/* LDREGTBL Routine Below */ 



Function: LDREGTBL receives the portion of data which contains register 

information. Places this data in the register table, which 
starts at the address TBL_D0 . 

Modified 
Registers: None. 



Called by: GO 

V 

LDREGTBL : 

MOVEM . L 
MOVE .L 
MOVE .L 
MOVE .L 

ORE : JSR 

MOVE .B 
SUB.L 
BNE.S 
JSR 



D0-D7/A0-A7, - (SP) 
68 (SP) , D4 
72 (SP) , A6 
A6,A5 
RUART+ROM 
D3, (A6) + 

#1, D4 
MORE 

RUART+ROM 



r 

24 REGS x 4 = 96 BYTES WILL BE RECEIVED. 
PUT BASE LOADING ADDRESS IN A6 . 

SAVE A 6 IN A5 (FOR USE IN CHECKSUM CALC) . 
START RECEIVING BYTES. . . 



RECEIVE ENDS... 

GET CHECKSUM BYTE. (IT WILL BE IN [D3]) . 
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MOVE .L 
MOVE .B 
SUB.L 

GETCHKSUM : MOVE . B 
EOR.B 
SUB.L 
BNE.S 
CMP .B 
BNE.S 
BRA 

C_ERROR2 : JSR 

FINISH: MOVEM.L 

RTS 



68 (SP) , D4 
(A5 ) + , DO 
#1,D4 
(A5) + ,D6 
D6, DO 
#1,D4 
GETCHKSUM 
D3, DO 
C_ERROR2 
FINISH 

SENDERROR+ROM 



COMPUTE CHECKSUM. . . 

24 REGS x 4 = 96 BYTES WILL BE RECEIVED. 
108 (FOR FLOATING) 



CHECKSUM COMPUTATION ENDS. 



RETURN TO CALLER. 

IN CASE OF ERROR ALERT MACINTOSH. 



(SP) +,D0-D7/A0-A7; 



/’ 



LDREGTBL Routine Ends 



/* UPLOAD Routine Below */ 



Function: ULPOAD sends the data which is contained in register table, 

to the Macintosh. 

Modified 
Registers: None. 



Called by: DOWNLOAD, TRAPH, TRACEHANDLER . 



*/ 










UPLOAD : 


MOVEM . L 


D0-D7/A0-A7, 


- (SP) ; 






MOVE A . L 


#TBL DO , A6 


r 






MOVE . B 


#96, D4 


; SET BYTES COUNT IN 


D4 . 


ROUND : 


MOVE . B 


(A6) +,D3 


r 






JSR 


ROM+SUART 


r 






MOVE . B 


$6664, D3 


; TH I S MOVE . B IS FOR 


ADJUSTING THE TIMING. 




SUB . B 


#1,D4 


; (DO ] <- COUNT. 






BNE . S 


ROUND 


r 






MOVEM . L 


(SP) +, D0-D7 / A0-A7 ; 






RTS 




; RETURN TO CALLER. 





/* UPLOAD Routine Ends */ 



/* FUPLOAD Routine Below */ 

Function: FULPOAD sends the data which is contained in Floating Point 

Register Table, to the Macintosh. 

Modified 
Registers: None. 

Called by: DOWNLOAD, TRAPH, TRACEHANDLER. 

*/ 
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FUPLOAD : 


MOVEM . L 


DO-D7/AO-A7, - (SP) ; 






M0‘ VE A . L 


#TBL FPCR, A6 






MOVE . B 


#108, D4 ; SET BYTES COUNT IN 


D4 . 


FROUND : 


MOVE . B 


(A6)+,D3 






JSR 


ROM+SUART 






MOVE .B 


$6666, D3 /THIS MOVE.B IS FOR 


ADJUSTING THE TIMING 




SUB .B 


#1 , D4 / [DO] <- COUNT. 






BNE . S 


FROUND 






MOVEM . L 


(SP) +, D0-D7/A0-A7 ; 






RTS 


/RETURN TO CALLER. 





/* FUPLOAD Routine Ends */ 



/* GO Routine Below */ 

Function: GO receives the following parameters in that order: 

1- Display Steps Byte 

2- Five Break Point Addresses 

3- Five Break Point Counts 

4- All of the Registers, Program Counter. 

Modified 
Registers: None. 



Called by: MAIN. 



*/ 
30 : 



GETPTS : 



3ETCTS : 



MOVE.B 


#$AA, VIOL FLAG 


r 






MOVE.B 


D 3, SAVE CODE 


r 






MOVE.B 


#1, FIRSTINST 


r 






JSR 


RUART+ROM 


/GET DISP STEP BYTE. 






MOVE.B 


D3, DISP STEP 


/PUT IT IN ITS LOCATION. 






MOVE.B 


#5, D4 


r 






LEA 


BRKPT1 , A6 


/LOAD A6 WITH THE ADDRESS 


OF 


FIRST BREAK_ 


JSR 


GETLONG 


/POINT ADDRESS HOLDER. 






MOVE .L 


D3, (A6) + 


f 






SUB.B 


#1, D4 


} 






BNE. S 


GETPTS 


/ BRKPT1 THRU BRKPT5 ARE LOADED WITH 


MOVE .L 


#8 , D6 


/ ADDRESSES. 






MOVE.B 


#5, D4 


r 






LEA 


BRKCNT1, A6 


/LOAD A6 WITH THE ADDRESS 


OF 


FIRST BRKCNT . 


JSR 


RUART+ROM 


/GET LOW BYTE OF COUNT. 






LSL.L 


D6,D3 


/MOVE LOW BYTE TO HIGH. 






JSR 


RUART+ROM 


/GET LOW BYTE OF COUNT. 






AND .L 


#$0000FFFF,D3 


/CLEAR HIGH WORD. 






MOVE .L 


D3, (A6) + 


/ [ (A6) ] <- COUNT. 






SUB.B 


#1,D4 


} 






BNE . S 


GETCTS 


/ BRKCNT1 THRU 5 ARE LOADED WITH THE COUNTS 


PEA 


TBL DO 


r 






MOVE .L 


#96, - (SP) 


r 






BSR 


LDREGTBL 


/LOAD THE REGISTER TABLE 


FROM MACINTOSH. 
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SKP Cl : 



PASS 1 : 



PASS 2 : 



PASS 3: 



PASS 4 : 



PASS 5 : 



ADD . L 


#8, SP 


TST.B 


COP ENB 


BEQ. S 


SKP Cl 


PEA 


TBL FPCR 


MOVE .L 


#108, - (SP) 


BSR 


LDREGTBL 


ADD . L 


#8, SP 


BTST.B 


#7, TBL SR 


BNE 


PASS 6 


BTST.B 


#6, TBL SR 


BNE 


PASS 6 


CMP I . L 


#0, BRKPT 1 


BEQ. S 


PASS 1 


MOVE .L 


BRKPT 1, A6 


CMPA.L 


TBL PC, A6 


BEQ.S 


PASS 1 


MOVE . W 


(A6) , TMPPT1+2 


MOVE . W 


#TRAP 15, (A6) 


CMPI.L 


#0, BRKPT2 


BEQ.S 


PASS 2 


MOVE . L 


BRKPT2 , A6 


CMP A . L 


TBL PC, A6 


BEQ.S 


PASS 2 


MOVE . W 


(A6) , TMPPT2+2 


MOVE . W 


#TRAP 15, (A6) 


CMPI.L 


#0, BRKPT3 


BEQ.S 


PASS 3 


MOVE .L 


BRKPT3, A6 


CMPA.L 


TBL PC, A6 


BEQ.S 


PASS 3 


MOVE . W 


( A6 ) , TMPPT3+2 


MOVE . W 


♦ TRAP 15, (A6) 


CMPI.L 


#0, BRKPT 4 


BEQ.S 


PASS 4 


MOVE .L 


BRKPT4 , A6 


CMPA.L 


TBL PC, A6 


BEQ.S 


PASS 4 


MOVE .W 


(A6) , TMPPT4+2 


MOVE . W 


#TRAP 15, (A6) 


CMPI.L 


#0, BRKPT5 


BEQ. S 


PASS 5 


MOVE .L 


BRKPT5, A6 


CMPA.L 


TBL PC, A6 


BEQ.S 


PASS 5 


MOVE . W 


(A6) , TMPPT5+2 


MOVE . W 


#TRAP 15, (A6) 


BSR 


UPDATEREGS 


TST.B 


COP ENB 


BEQ.S 


SKP C2 


BSR 


UPDTFLREGS 



; IF USER DOES NOT ENABLE COPROCESSOR.. 
; DO NOT WAIT FOR FLOATING REGISTERS. 



; LOAD THE FLOATING REG. TABLE FROM 
; MACINTOSH. 

; IS TRACE ALL ? 

/...YES , DO NOT INSERT TRAP #15. 

/IS TRACE BRANCH ? 

/...YES , DO NOT INSERT TRAP #15. 

/IN CASE OF NO BREAKPOINT FOR ANY BRKPT 
/'$0000' WILL BE SENT FROM MAC. IF IT IS 
/ ZERO THEN SKIP SAVING AND CHECK OTHERS . 

/ IS BREAKPOINT = PC ? 

/ . . . YES DO NOT INSERT TRAP 15 CODE. 

/IF BRKPT1 IS NOT EQUAL TO ^0000 THIS 
/MEANS TAHT A BRKPT WILL OCCUR. AND FIRST 
/PIECE OF CODE IS TAKEN OUT AND SAVED IN 
/TMPPTx, THEN TRAP_15 CODE IS INSERTED. 

/ IS BREAKPOINT = PC ? 

/ . . . YES DO NOT INSERT TRAP_15 CODE. 



/ IS BREAKPOINT = PC ? 

/.. YES DO NOT INSERT TRAP 15 CODE. 



/ IS BREAKPOINT = PC ? 

/ . . YES DO NOT INSERT TRAP 15 CODE. 



/IS BREAKPOINT = PC ? 

/... YES DON'T INSERT TRAP 15 CODE. 



/UPDATE REGISTERS FROM THE REGISTER TABLE 
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SKP_C2 : 


MOVE . L 


TBL USP , AO 


READY FOR USP. 






MOVE .L 


AO, USP 


LOAD USP FROM TABLE. 






MOVE .L 


TBL SSP , AO 


READY FOR SSP. 






LONG 


$4E7B8803 


LOAD SSP FROM REG . TABLE . 






MOVE .L 


TBL ISP, AO 


READY FOR ISP. 






LONG 


$4E7B8804 


LOAD ISP FROM REG . TABLE . 










SKIP LOADING PC. 










DESIRED PC WILL BE LOADED WITH 








THE USE OF 'RTE' INSTRUCTION. 




CMP . B 


#2, SAVECODE 








BEQ. S 


GOGO 








BTST.B 


#5, TBL SR 








BNE . S 


N USER 








MOVE .L 


TBL USP, AO 








MOVE .L 


#CALL, - (AO) 








MOVE .L 


AO, USP 


LOAD USP AFTER PUSHING CALL 


ADDRESS. 




BRA 


GOGO 






NJJSER : 


BTST.B 


#4, TBL SR 








BNE. S 


N INTR 








MOVE .L 


TBL ISP, AO 








MOVE .L 


#CALL, - (AO) 








LONG 


$4E7B88 04 


LOAD ISP AFTER PUSHING CALL 


ADDRESS. 




BRA 


GOGO 






N_INTR : 


MOVE . L 


TBL SSP, AO 








MOVE .L 


#CALL, - (AO) 








LONG 


$4E7B88 03 


LOAD ISP AFTER PUSHING CALL 


ADDRESS. 


30G0 : 


MOVE . L 


TBL AO, AO 


LOAD AO . IT WAS SKIPPED ABOVE . 




MOVE . W 


#$0000, - (SP) 


PUSH FORMAT/OFFSET WORD. 






MOVE .L 


TBL PC, - (SP) 


PUSH THE PROGRAM COUNTER ON 


TO THE STACK 




MOVE . W 


TBL SR, - (SP) 








BSET . B 


#7, (SP) 


SET T1 (HIGH TRACE BIT) . 






BCLR.B 


#6, (SP) 


CLEAR TO (LOW TRACE BIT) . 






RTE 




(T1 TO = 1 0) ALLOWS TRACE ALL. 








THIS WILL POP THE NEW PC & 


SR VALUES 








OFF THE STACK AND CONTINUE 


EXECUTION 








WITH THE INSTRUCTION AT NEW PC VALUE. 


?ASS_6 : 


MOVE .B 


#5, D4 








LEA 


BRKPT1 , A6 


LOAD A6 WITH THE ADDRESS OF 


FIRST BREAK 








POINT ADDRESS HOLDER. 




:lr_all : 


MOVE . L 


#$00, (A6) + 








SUB.B 


#1,D4 








BNE. S 


CLR ALL 








BRA 


PASS 5 







'* GO Routine Ends */ 



'* MEMWRITE Routine Below */ 



Function: MEMWRITE writes the user specified data (Byte/Word/LongWord) 
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into user specified memory locations . 



Modified 
Registers: None. 

Called by: MAIN. 



*/ 

MEMWRITE 



CONTINUE : 



VERIFY: 
TR ALL: 



THERE : 



MOVEM.L D0-D7/A0-A7, - (SP) / 

GET SIZE. 
[D4.B]<- SIZE. 



JSR 

MOVE .B 
JSR 

MOVEA.L D3 , A6 
MOVE . L A6,A5 



RUART+ROM 

D3,D4 

GETLONG 



MOVE .B 

BCLR 

JSR 

MOVE .B 
SUB . B 
BNE . S 
BTST 
BNE . S 
BRA 
BCLR 
MOVE . B 
JSR 
SUB.B 
BNE.S 
MOVEM . L 
RTS 



D4,D5 

#7 , D4 

RUART+ROM 

D3, (A6) + 

#1,D4 

CONTINUE 

#7 , D5 

VERIFY 

THERE 

#7 , D5 

( A5 ) +, D3 

SUART+ROM 

#1,D5 

TR_ALL 

(SP) +, D0-D7 



TA6]<- MODIFY ADDRESS. 
SAVE A6 IN A5 . 



WRITE TO MEMORY, BYTE BY BYTE. 

LOOP UNTIL SIZE BYTES ARE RECEIVED, 
(ie., FOUR BYTES IF SIZE = LONGWORD) . 
BIT #7 OF SIZE BYTE IS SET BY MACINTOSH 
IF VERIFY WAS DESIRED. 

IF USER WANTS TO VERIFY THEN READ BACK 
AND SEND TO MACINTOSH. 



/ A0-A7 / 

/RETURN TO CALLER. 



/* MEMWRITE Routine Ends */ 



/* MEMDISPLAY Routine Below */ 



Function: MEMDISPLAY receives the user specified address range 

(16 bytes at a time), and fetches the bytes from these 
memory locations, and sends these bytes to Macintosh. 

Modified 
Registers: None. 



Called by: MAIN. 

*/ 

MEMDISPLAY: MOVEM.L D0-D7/A0-A7 , - (SP) / 



JSR 

MOVEA . L 
JSR 

MOVE .B 



GETLONG 
D3, A6 
RUART+ROM 
D3, D4 



MOVE . B (A6)+,D3 



[A6]<- DISPLAY ADDRESS. 

GET LOW BYTE OF COUNT. 

[D4 . B] <- COUNT. 

PARAMETERS ARE OBTAINED NOW, START TO 
THOSE MEMORY CONTENTS TO MACINTOSH. 
/BYTE TO BE SENT IS IN D3 NOW. 



SI! 
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MOVE .B 


D3, DO 








JSR 


SUART+ROM 


SEND THE BYTE. 






SUB.B 


#1,D4 








BEQ.S 


SKPTOUR 






T0UR_1 : 


MOVE . B 


(A6) +,D3 


BYTE TO BE SENT IS 


IN D3 NOW. 




EOR.B 


D3 , DO 


CHKSUM WILL ACCUMULATE IN [DO.B] . 




JSR 


SUART+ROM 


SEND THE BYTE, WHICH IS ALREADY IN D3 . 




SUB.B 


#1,D4 








BNE . S 


TOUR 1 






SKPTOUR : 


MOVE . B 


DO, D3 


[D3 ] < — CHKSUM . . 


. 




JSR 


SUART+ROM 


SEND CHKSUM, WHICH 


IS ALREADY IN [D3.B] 




MOVEM . L 


(SP) +,D0-D7/A0-A7; 






RTS 


i 


; RETURN TO CALLER 





/* MEMDISPLAY Routine Ends */ 



/* UPDTFLTBL Routine Below */ 



Function: UPDTFLTBL updates the Floating Point Register Table. 

It moves the control registers as longwords, and the 
Floating Point Registers as packed, to the table. 

Modified 
Registers: None. 



Called by: TRAPH, TRACEHANDLER . 



ART FL: 



MOVE . L 


AO , SAVEAO 


SAVE AO 


WITHOUT DISTURBING THE 


MOVE .L 


#TBL FPCR, AO 


[AO ] <- ' 


TABLE 


LOWER BASE ADDRESS 


LONG 


$F2 18BC00 


FMOVEM . i 


L FPCR/FPSR/FPIAR, (A0)+ 


LONG 


$F2 18 6C11 


FMOVE . P 


FPO , 


(AO ) + 


LONG 


$F2186C91 


FMOVE . P 


FP1 , 


(AO) + 


LONG 


$F2 18 6D11 


FMOVE . P 


FP2 , 


(AO) + 


LONG 


$F2 18 6D91 


FMOVE . P 


FP3 , 


(AO) + 


LONG 


$F2186E11 


FMOVE . P 


FP4 , 


(AO ) + 


LONG 


$F2 18 6EA1 


FMOVE . P 


FP5 , 


(AO ) + 


LONG 


$F2186F21 


FMOVE . P 


FP6, 


(AO) + 


LONG 


$F2186FA1 


FMOVE . P 


FP7 , 


(AO) + 


MOVE .L 


SAVEAO, AO 








RTS 











STACK. 



UPDTFLTBL Routine Ends */ 



UPDATETBL Routine Below */ 



Function : 
Modified 



UPDATETBL updates the register table. Moves the copies 
of MC68020 registers, to the table. 
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Registers: None. 
Called by: TRAPH. 

*/ 



UPDATETBL : MOVE . L 


AO, SAVE AO 


; SAVE AO WITHOUT DISTURBING THE STACK. 


MOVE . L 


#TBL USP, AO 


; [AO] <- TABLE LOWER BASE ADDRESS. 


MOVEM . L 


D0-D7/A0-A6, - 


(AO) ; LOAD ALL DATA REGS. AO IS LOADED DUMMY 






; IT WILL BE OVERWRITTEN ON NEXT LINE. 


MOVE .L 


SAVEAO, TBL AO 


; REAL VALUE OF AO IS SAVED. 


MOVE . L 


USP, AO 


r 


MOVE .L 


AO, TBL USP 


; USP IS LOADED. 


LONG 


$4E7A8803 


; [AO] <- [MSP] 


MOVE .L 


AO, TBL SSP 


; LOAD MSP . 


LONG 


$4E7A8804 


; [AO] <- [ISP] 


MOVE .L 


AO, TBL ISP 


; LOAD ISP. 


BTST . B 


#4, TBL SR 


; DID USER CHOOSE TO USE ISP ?.. 


BNE . S 


MSPTR 


; OR MSP ? . . 


ADD . L 


#28, TBL ISP 


; 28 BYTES STACK SPACE IS USED BY: 


BRA 


SKIPP 


; 8 BYTES BY TRAP#15 4 WORD STACK FRAME, 


MSPTR : ADD . L 


#28, TBL_SSP 


; 16 BYTES BY SAVING D3, D4, A5, A6 REGS 






; 4 BYTES BY BSR UPDATETBL IN TRAP 15 






; HANDLER . 


SKIPP: MOVE . L 


22 (SP) , TBL PC 


; LOAD PC. (IT IS AT LOCATION SP+22) . 


MOVE . W 


#$00, TBL SRHI 


; LOAD '$0000' FOR SR HIGH WORD. 


MOVE . W 


20 (SP) , TBL_SR 


; LOAD SR LOW WORD. (IT IS AT LOCATION 






; SP+20) . 


LONG 


$4E7A8801 


r 


MOVE .L 


AO, TBL VBR 


; LOAD VBR. 


LONG 


$4E7A8002 


r 


MOVE .L 


AO, TBL CACR 


; LOAD CACR. 


LONG 


$4E7A8802 


r 


MOVE .L 


AO, TBL CAAR 


; LOAD CAAR. 


MOVE . L 


DO, SAVEDO 


r 


LONG 


$4E7A0001 


; [DO] <- DFC . 


MOVE . L 


DO, TBL SFC 


; DFC IS IN ITS PLACE. 


LONG 


$4E7A0000 


; [DO] <— SFC. 


LSL.L 


#4, DO 


f 


OR . L 


DO, TBL SFC 


f 


MOVE .L 


SAVEDO, DO 


r 


MOVE .L 


SAVEAO, AO 


r 


RTS 




; RE TURN TO CALLER. 



/* UPDATETBL Routine Ends */ 



/* UPDATETBL2 Routine Below */ 

Function: UPDATETBL2 updates the register table. Moves the copies 

of MC68020 registers, to the table. Slightly different from 
UPDATETBL. 
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Modified 
Registers: None. 



Called by: DOWNLOAD. 

*/ 



JPDATETBL2 



4SPTR2 : 
3KIPP2 : 



: MOVE. 


L AO, SAVEAO 


; SAVE AO WITHOUT DISTURBING THE STACK. 


MOVE .L 


#TBL USP,A0 


; [AO] <- TABLE LOWER BASE ADDRESS. 


MOVEM . L 


D0-D7/A0-A6, - 


(AO); LOAD ALL DATA REGS. AO IS LOADED DUMMY 
; IT WILL BE OVERWRITTEN ON NEXT LINE. 


MOVE ,L 


SAVEAO, TBL AO 


; REAL VALUE OF AO IS SAVED. 


MOVE . L 


USP, AO 


r 


MOVE .L 


AO, TBL USP 


; USP IS LOADED. 


LONG 


$4E7A8803 


; [AO] <- [MSP]. 


MOVE . L 


AO, TBL SSP 


/LOAD MSP. 


LONG 


$4E7A8804 


; [AO] <- [ISP]. 


MOVE . L 


AO, TBL ISP 


/LOAD ISP. 


BTST.B 


#4, TBL SR 


/DID USER CHOOSE TO USE ISP ?.. 


BNE . S 


MSPTR2 


; OR MSP ? . . 


ADD . L 


#$48, TBL ISP 


r 


BRA 


SKIPP2 


r 


ADD . L 


#$48, TBL SSP 


r 


MOVE . L 


#$1000, TBL PC 


/LOAD '$1000' FOR PC !... 


MOVE . W 


#$00, TBL SRHI 


/LOAD '$0000' FOR SR HIGH WORD. 


MOVE .L 


#TBL SR, A0 


r 


MOVE . W 


SR, (A0) 


/LOAD SR LOW WORD. 


LONG 


$4E7A8801 


r 


MOVE .L 


A0, TBL VBR 


/ LOAD VBR. 


LONG 


$4E7A8002 


r 


MOVE . L 


A0, TBL CACR 


; LOAD CACR. 


LONG 


$4E7A8802 


r 


MOVE .L 


A0, TBL CAAR 


/LOAD CAAR. 


MOVE . L 


DO, SAVED0 


r 


LONG 


$4E7A0001 


/ [DO] <- DFC . 


MOVE .L 


DO, TBL SFC 


; DFC IS IN ITS PLACE. 


LONG 


$4E7AOOOO 


; [DO] <- SFC. 


LSL.L 


#4, DO 


r 


OR . L 


DO, TBL SFC 


r 


MOVE .L 


SAVED 0, DO 


r 


MOVE . L 


SAVEAO, AO 


r 


RTS 




/RETURN TO CALLER. 



'* UPDATETBL2 Routine Ends */ 



'* UPDATE TBL3 Routine Below */ 



Function: UPDATETBL3 updates the register table. Moves the copies 

of MC68020 registers, to the table. Slightly different from 
UPDATETBL and UPDATETBL2 . 

Modified 
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Registers : None . 

Called by: TRACEHANDLER . 



MSPTR3 



SKIPP3 : 



: MOVE. 


L AO , SAVEAO 


; SAVE AO WITHOUT DISTURBING THE STACK. 


MOVE .L 


#TBL USP, AO 


; [AO] <- TABLE LOWER BASE ADDRESS. 


MOVEM . L 


D0-D7/A0-A6, - 


(AO); LOAD ALL DATA REGS. AO IS LOADED DUMMY 
; IT WILL BE OVERWRITTEN ON NEXT LINE. 


MOVE .L 


SAVEAO, TBL AO 


; REAL VALUE OF AO IS SAVED. 


MOVE .L 


USP, AO 


r 


MOVE .L 


AO, TBL USP 


; USP IS LOADED. 


LONG 


$4E7A8803 


; [AO ] O [MSP]. 


MOVE .L 


AO, TBL SSP 


; LOAD MSP . 


LONG 


$4E7A8804 


; [AO] <- [ISP]. 


MOVE .L 


AO, TBL ISP 


/LOAD ISP. 


BTST . B 


#4, TBL SR 


/DID USER CHOOSE TO USE ISP ?.. 


BNE . S 


MSPTR3 


/ OR MSP ? . . 


ADD . L 


#16, TBL ISP 


r 


BRA 


SKIPP3 


r 


ADD .L 


#16, TBL_SSP 


; xx BYTES STACK SPACE IS USED BY: 

; 8 BYTES BY TRAP#14 4 WORD STACK FRAME, 

; 1 6 BYTES BY SAVING D3, D4 , A5, A6 REGS 
; 4 BYTES BY BSR UPDATE TBL IN TRACE HANDL] 


MOVE . L 


6 (SP) , TBL PC 


; LOAD PC. (IT IS AT LOCATION SP+6) . 


MOVE .W 


#$00, TBL SRHI 


; LOAD '$0000' FOR SR HIGH WORD. 


MOVE . W 


4 (SP) , TBL SR 


; LOAD SR LOW WORD. (IT IS AT LOCATION SI 


LONG 


$4E7A8801 


r 


MOVE .L 


AO, TBL VBR 


/LOAD VBR. 


LONG 


$4E7A8002 


r 


MOVE .L 


AO , TBL CACR 


/LOAD CACR. 


LONG 


$4E7A8802 


r 


MOVE .L 


AO , TBL CAAR 


/LOAD CAAR. 


MOVE .L 


DO, SAVEDO 


r 


LONG 


$4E7A0001 


; [DO] <- DFC . 


MOVE .L 


DO, TBL SFC 


; DFC IS IN ITS PLACE. 


LONG 


$4E7A0000 


; [DO ] <- SFC. 


LSL.L 


#4, DO 


r 


OR . L 


DO, TBL SFC 


r 


MOVE .L 


SAVEDO, DO 


r 


MOVE .L 
RTS 


SAVEAO, AO 


/RETURN TO CALLER. 



/* UPDATETBL3 Routine Ends */ 



UPDTFLREGS Routine Below 



V 



Function: UPDTFLREGS updates the Floating Registers, with the data 

sent by the Macintosh . 
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Modified 
Registers: None. 



Called by: GO. 

*/ 

[JPDTFLREGS :MOVE . L #TBL FPCR,A0 



LONG 


$F2189C00 


FMOVEM . L 


LONG 


$F2184C00 


FMOVE . P 


LONG 


$F2 184C80 


FMOVE . P 


LONG 


$F2 184D00 


FMOVE . P 


LONG 


$F2 184D80 


FMOVE . P 


LONG 


$F2 184E00 


FMOVE . P 


LONG 


$F2 184E80 


FMOVE . P 


LONG 


$F2 184F00 


FMOVE . P 


LONG 

RTS 


$F2184F80 


FMOVE . P 



(AO) +, FPCR/FPSR/FPIAR 

(AO) +, FPO 

(AO) + , FP 1 

(AO) +, FP2 

(AO) + , FP3 

(AO) +, FP4 

(AO) +, FP5 

(AO) +, FP 6 

(AO) +, FP7 



/* UPDTFLREGS Routine Ends */ 



/* UPDATEREG Routine Below */ 



Function: UPDATEREGS updates the registers, with the data 

sent by the Macintosh. 

Modified 
Registers: None. 



Called by: GO. 



!: MOVE.: 


L #TBL DO, AO 


MOVEM . L 


(AO) +, D0-D7 


ADD . L 


#4, AO 


MOVEM . L 


(AO) +, A1-A6 


MOVE .L 


TBL VBR, AO 


LONG 


$4E7B8801 


MOVE .L 


TBL CACR, AO 


LONG 


$4E7B8002 


MOVE .L 


TBL CAAR, AO 


LONG 


$4E7B8802 


MOVE .L 


TBL SFC, DO 


AND . L 


#$0000000F,D0 


LONG 


$4E7B0001 


MOVE .L 


TBL SFC, DO 


LSR.L 


#4, DO 


LONG 


$4E7B0000 


MOVE .L 


TBL DO, DO 


RTS 





/* UPDATEREG Routine Ends */ 



SKIP AO IN THE TABLE (RESTORED IN "GO") . 
READY FOR VBR . 

LOAD VBR FROM REGISTER TABLE. 

READY FOR CACR. 

LOAD CACR FROM REGISTER TABLE. 

READY FOR CAAR . 

LOAD CAAR FROM REGISTER TABLE. 



[DFC] <- [DO] . 



[SFC] <- [DO] . 

SR WILL BE POPPED OFF THE STACK LATER. 
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/* Interrupt Level 4 HANDLER Routine Below */ 

Function: HANDLER clears D1 to indicate a '0' has been received. 

A19, A17 bits of the return address are cleared to disable 
further interrupts, after RTE . 

Modified 
Registers: D1 . 

Called by: In case of level 4 Interrupt. 

*/ 

HANDLER: ANDI.L #$FFF5FFFF, 2 (SP) ; 

CLR.B D 1 

RTE 

/* Interrupt Level 4 HANDLER Routine Ends */ 



/* TRAP HANDLER Routine Below */ 

Function: TRAPH, Handles Trap 15. 

Puts all Registers & Stack Pointer Contents to Memory, 
(namely to the register table) , and waits for Command 
from Macintosh. 

TRAP Instruction 





SSP 


-2 -> SSP 


FORMAT/VECTOR OFFSET -> (SSP) 




SSP 


-4 -> SSP 


PC -> (SSP) 


SSP 

Modified 


-2 -> SSP 


SR -> (SSP) 
VECTOR ADDRESS -> PC 


Registers: SP, 


SR. 




Called by: In 

★ / 


case of Trap 


15 Occurs . 


TRAPH: 


MOVEM . L 


D3-D4/A5-A6, ■ 


- ( SP ) ; SAVE THE REGISTERSTO BE MODIFIED. 




SUB.L 


#2, 18 (SP) 


; [PC] <- [PC ) -2 (THE ONE SAVED ON STACK). 




BSR 


UPDATETBL 


/LOAD REG TABLE BEFORE UPLOADING IT. 




TST.B 


COP ENB 


/ IF USER DOES NOT ENABLE COPROCESSOR 




BEQ. S 


SKP C3 


; DO NOT UPDATE FLOATING REGISTER TABLE. 




BSR 


UPDTFLTBL 


r 


SKP_C3 : 


MOVE . L 


18 (SP) ,D3 


;[D3]<- INSTRUCTION ADDR. CAUSING TRAP_1! 




MOVE . W 


#4, D4 


r 




LEA 


BRKPT1 , A6 


; ONE OF THE BREAKPOINTS SHOULD BE EQUAL 


SEARCH : 


CMP .L 


(A6) +,D3 


; TO THAT ADDRESS . 




DBEQ 


D 4, SEARCH 


r 




CMP . W 


#0, D4 


r 




BLT 


DSPLY 


r 




SUB.L 


#4, A6 


; IF SO DECREMENT TAHT BREAKPOINT' S COUNT 




MOVE .L 


(A6) , A5 


r 




MOVE .W 


-18 (A6) , ( A5 ) 


/PUT THE ORIGINAL CODE BACK TO ITS PLACE 
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CMP I . L 


#0, 20 (A6) 


/IF THE BREAKCOUNT IS ZERO, DON'T DECREMENT 




BEQ. S 


NOT SUB 


/IT. SO EVERY TIME THAT ADDRESS IS REACHED 




SUB.L 


#1,20 (A6) 


/A BREAKPOINT WILL OCCUR. 


NOT_SUB : 


CMP .B 


#0, DISP STEP 


/IF DISPLAY STEP IS SET, THEN DISPLAY THE 




BNE.S 


DSPLY 


/RESULTS TO THE USER EACH TIME THAT 




CMP .L 


#0,20 (A6) 


/IS REACHED, REGARDLESS OF ITS COUNT. 




BNE.S 


SKPDSPLY 


/IF DISPLAY STEP IS NOT SET, THEN DISPLAY 


DSPLY : 


BSR 


UPLOAD 


/ONLY WHEN ITS COUNT DECREMENTS TO ZERO, 




BSR 


SCNTS 


/SEND BACK THE MOST RECENT BREAKCOUNTS . 




TST.B 


COP ENB 


r 




BEQ. S 


SKP C4 


r 




BSR 


F UP LOAD 


r 


SKP_C4 : 


MOVE . L 


#5, D4 


r 




LEA 


BRKPT1 , A6 


f 


LOOK: 


CMP .L 


#0, (A6) + 


; RESTORE ALL ORIGINAL INSTRUCTION CODES 




BEQ. S 


DO NTH 


/HAVING BREAKPOINTS BEFORE RETURNING TO 




MOVE . L 


-4 (A6) , A5 


/MAIN. 




MOVE . W 


-22 (A6) , (A5 ) 


r 


DO_NTH : 


SUB.L 


#1 , D4 


r 




BNE.S 


LOOK 


r 




MOVE .L 


#MAIN, 18 (SP) 


/IF DISPLAYED THEN LOOP IN MAIN WAITING FOR 




BRA 


RESTORE 


/THE NEXT COMMAND. (SO PUT MAIN ADDR. IN 
/ITS PLACE ON THE STACK) . OTHERWISE DON'T 
/RETURN TO MAIN PGM, INSTEAD CONTIUNE WITH 
/THE EXECUTION OF THE NEXT INSTRUCTION. 


SKPDSPLY : 


: BSET.B 


#7, 16 (SP) 


/ SET T1 OF STAUS REGISTER. 




BCLR.B 


#6, 16 (SP) 


/ CLEAR TO OF STATUS REGISTER. (TRACE ALL) . 


RESTORE : 


BCLR . B 


#4,16 (SP) 


t 




BSET.B 


#5, 16 (SP) 


/ WILL BE IN SUPERVISOR MODE ON EXIT. 




MOVEM . L 
RTE 


( SP ) + , D3-D4 / A5 


-A6 / 


/* TRAP 


HANDLER 


Routine Ends * 


/ 



/* Interrupt Level 6 (ABORT) HANDLER Routine Below */ 

Function: ABORT arranges the Stack (for compatibility with the TRAP 

HANDLER Routine), and branches to TRAPH. 

Modified 

Registers: SP, SR. 



Called by: In case of Level 



*/ 

^BORT : 



provide ABORT. 

ORI #MASK_7 , SR 

ANDI.W #$2FFF,SR 
ADDI.L #2 , 2 ( SP ) 

BRA TRAPH 



6 Interrupt, which is generated to 



/DISABLE INTERRUPTS. 

/DISABLE TRACE. 

/COMPENSATE FOR SUBTRACTION. 
/CONTINUE WITH TRAPH. 
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/* Interrupt Level 6 (ABORT) HANDLER Routine Ends */ 



/* STACKFRAME Routine Below */ 

Function: STACKFRAME just arranges the stack. The address of this 

routine is placed in the exception vector table entries, 
for unimplemented exceptions. The purpose is to prevent 
system crash, when those unimplemented exceptions occur. 

Modified 

Registers: SP . 

Called by: In case of unimplemented exceptions. 

*/ 

STACKFRAME: AND I. W #$2FFF, (SP) ; DISABLE TRACE. 

ANDI.W #INTR_ENB, (SP) ; ENABLE INTERRUPTS. 

MOVE . L #MAIN, 2 (SP) ; 

RTE 

/* STACKFRAME Routine Ends */ 



/* GETLONG Routine Below */ 

Function: GETLONG receives a longword, which is sent by the Macintosh 

Modified 

Registers: D3, which passes the received longword to the calling routii. 



Called by: DOWNLOAD, GO, MEMWRITE, MEMDISPLAY. 



*/ 

GETLONG : 


MOVEM . L 


D0-D2/D4-D7/A0 


-A7,- (SP) ; 








MOVE .L 


#8,D6 


; COUNTER TO SHIFT LOW BYTE TO 


HIGH 


BYTE 




JSR 


RUART+ROM 


; GET BYTE #3 OF LOAD ADDRESS. 








LSL . L 


D6, D3 


; SHIFT IT TO ITS PLACE. 








JSR 


RUART+ROM 


; GET BYTE #2 OF LOAD ADDRESS. 








LSL. L 


D6, D3 


r 








JSR 


RUART+ROM 


; GET BYTE #1 OF LOAD ADDRESS. 








LSL. L 


D6, D3 


; MOVE BYTE #1 ITS POSITION. 








JSR 


RUART+ROM 


; GET BYTE #0 OF LOAD ADDRESS. 


( LS 


BYTE 




MOVEM. L 


(SP) +,D0-D2/D4 


-D7/A0-A7; 








RTS 




; RETURN TO CALLER. 







/* GETLONG Routine Ends */ 



/* SENDERROR Routine Below */ 

Function: SENDERROR sends a lot of successive zeros, which will 

cause a Frame Error, and its detection on the Macintosh. 
So, Macintosh will know that something went wrong during 
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transmission of data to the ECB . 

Modified 

Registers: D0,D1. 

Called by: RUART, DOWNLOAD, LDREGTBL . 



SENDERROR : MOVE . B 


fBRKCOUNT , D 0 


; THAT MANY TIMES ZERO BITS 


WILL BE SENT 


STEP 1 : 


JSR 


SEND ZER+DELAY1 


; SEND A ZERO. 






SUB.B 


#1, DO 


r 






BNE . S 


STEP1 


r 






MOVE . W 


#MAXINT,D0 


r 




STEP 4 : 


MOVE. W 


#10, D1 


; FOR 10 x 100 MICRO SECOND 


DELAY. 


STEP 2 : 


MOVE . L 


#7,D2 


r 




STEP 3 : 


DBF 


D2, STEP 3 


; 100 MICRO SECOND DELAY. 






SUB. W 


#1 , D1 


r 






BNE. S 


STEP2 


r 






SUB.W 


#1, DO 


r 






BNE. S 


STEP4 


r 






RTS 




r 





/* SENDERROR Routine Ends */ 



f* SCNTS Routine Below */ 



Function: SCNTS sends the most updated BreakCounts to the Macintosh. 

Modified 

Registers: None. 



Called by: TRACEHANDLER, TRAPHANDLER. 



"/ 




5CNTS : 


MOVEM . L 




MOVE .L 




MOVE . L 


rORALL : 


MOVE . B 




JSR 




MOVE . B 




JSR 




ADDA . L 




SUB.L 




BNE . S 




MOVE .B 




JSR 




MOVEM . L 




RTS 



D3-D4/A6, - (SP) 
#5, D4 

#BRKCNTl+2, A6 
(A6) +,D3 
ROM+SUART 
(A6) +,D3 
ROM+SUART 
#2, A6 
#1/D4 
FORALL 
VIOL_FLAG,D3 
ROM+SUART 
(SP) +, D3-D4/A6 



; SEND PRIVILAGE VIOLATION CODE. ($55 FOR YES, 
; $AA FOR NO) . 



'* SCNTS Routine Ends */ 
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/* TRACEHANDLER Routine Below */ 



Function: TRACEHANDLER handles the Trace case. 

Modified 

Registers: SP, SR. 



Called by: In case of Trace (Trace All or Trace Branch) . 

*/ 

TRACEHANDLER: MOVEM.L D3-D4/A5-A6, - (SP) ; 





MOVE .L 


24 (SP) , D3 


; [D3] = FAULTING INSTRUCTION ADDRESS. 




MOVE . W 


#4, D4 


r 




LEA 


BRKPT1, A6 


r 


SEEK: 


CMP .L 


(A6) + , D3 


r 




DBEQ 


D4, SEEK 


r 




CMP . W 


#0, D4 


r 




BLT 


SRC FAIL 


r 


MATCH: 


SUB.L 


#4, A6 


r 




MOVE . L 


(A6) , A5 


r 




MOVE .W 


(A5 ) , -18 (A6) 


r 




MOVE . W 


#TRAP 15, (A5) 


r 


SRC_FAIL : 


MOVEM . L 


(SP) +,D3-D4/A5 


1 

> 




BTST.B 


#6, TBL SR 


r 




BNE.S 


TRC BRA 


r % 




BTST.B 


#7, TBL SR 


r 




BNE.S 


TRC ALL 


r 




BRA 


NO TRACE 


r 


TRC_BRA : 


CMP .B 


# 1 , FIRST INST 


r 




BEQ. S 


NOT SHOW 


r 




BSR 


UPDATETBL3 


r 




BSR 


UPLOAD 


r 




BSR 


SCNTS 


r 




TST.B 


COP ENB 


; IF USER DOES NOT ENABLE COPROCESSOR 




BEQ. S 


SKP C5 


r 




BSR 


UPDTFLTBL 


r 




BSR 


FUPLOAD 


f 


SKP_C5 : 


AND I . W 


#$2FFF, (SP) 


; DISABLE TRACE. T1-T0 -> NO TRACE. 




BSET . B 


#5, (SP) 


/WILL BE IN SUPERVISOR MODE ON EXIT. 




MOVE .L 


#MAIN, 2 (SP) 


/WILL RETURN TO MAIN PROGRAM. 




BRA 


FINE 


} 


NOT_SHOW : 


BCLR.B 


#7, (SP) 


/SHOULD BE TRACE ALL. 




BSET . B 


#6, (SP) 


/ T1-T0 -> TRACE ALL. 




BRA 


FINE 


r 


TRC_ALL : 


BSR 


UPDATETBL3 


r 




BSR 


UPLOAD 


r 




BSR 


SCNTS 


/SEND THE MOST RECENT BREAKCOUNTS . 




TST . B 


COP ENB 


/ IF USER DOES NOT ENABLE COPROCESSOR 




BEQ. S 


SKP C6 


r 




BSR 


UPDTFLTBL 


r 




BSR 


FUPLOAD 


r 


SKP C6 : 


AND I . W 


#$2FFF, (SP) 


; CLEAR TRACE BITS NOT TO TRACE OURSELVES 
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BSET . B 
MOVE .L 
BRA 

NO_TRACE : BCLR . B 
FINE : MOVE . B 

RTE 

/* TRACEHANDLER 



/* VIOLHANDLER 



#5, (SP) 

#MAIN, 2 (SP) 

FINE 

#7, (SP) 

#0, FIRSTINST 



Routine Ends */ 



Routine Below */ 



WILL BE IN SUPERVISOR MODE ON EXIT. 
WILL RETURN TO MAIN PROGRAM. 

SINCE USER WANTS NO TRACE, CLEAR T1 . 
NOT FIRST INSTRUCTION ANYMORE. 



Function: VIOLHANDLER handles Privilage Violations. 

Modified 
Registers: SP . 

Called by: In case of Privilage Violation. 

*/ 

VIOLHANDLER : 

MOVE . B #$55, VIOL_FLAG / 

ADD . L #2, 2 (SP) / COMPENSATE FOR THE SUBTRACTION FOR 

/BREAKPOINTS IN TRAPH ROUTINE. 

BRA TRAPH /SINCE BOTH PRIVILEGE VIOLATION AND THE 

/ TRAP_1 5 HAVE THE SAME STACK FRAME. 

/PC POINTS TO FAULTING INSTRUCTION. 

/* VIOLHANDLER Routine Ends */ 

/* CALL (Subroutine Test) Below */ 

2ALL: WORD TRAP_15 

/* CALL (Subroutine Test) Ends */ 

/* MEMORY ALLOCATION */ 



IMPPTl : 


: LONG 


$0000 


/THIS WILL BE USED FOR SAVING CODE PARTS 


rMPPT2 : 


: LONG 


$0000 


/TAKEN OUT OF CODE FOR TRAP 15 INSERTION. 


rMPPT3 : 


: LONG 


$0000 


/ TMPPT1 WILL HOLDTHE PIECE OF CODE TAKEN 


FMPPT4 : 


: LONG 


$0000 


/OUT FOR INSERTION A TRAP 15 CODE FOR 


rMPPT5 : 


: LONG 


$0000 


/BREAKPOINT #1 (BRKPT1 ) . 


3RKPT1 


LONG 


$0000 


/THIS WILL BE USED FOR STORING THE 


3RKPT2 


LONG 


$0000 


/ADDRESSES AT WHICH THE BREAKPOINT 


3RKPT3 


LONG 


$0000 


/WILL OCCUR. 


3RKPT4 


LONG 


$0000 


/ (CORRESPONDING TO 5 DIFFERENT BREAK 


3RKPT5 


LONG 


$0000 


/POINTS) . 


3RKCNT1 : LONG 


$0000 


/THE BREAKPOINT COUNTS ASSOCIATED 
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BRKCNT2 : 


LONG 


$0000 


BRKCNT3 : 


LONG 


$0000 


BRKCNT4 : 


LONG 


$0000 


BRKCNT5 : 


LONG 


$0000 


SAVEAO : 


LONG 


$0000 


SAVED 0 : 


LONG 


$0000 


SAVE SR: 


WORD 


$0000 


SAVECODE : 


BYTE 


$00 


FIRSTINST 


: BYTE 


$00 


DISP STEP 


: BYTE 


$00 


VIOL FLAG 


: BYTE 


$00 


COP ENB : 


BYTE 


$00 


LAST: 


NOP 

END 





/* ECB ROM Resident Routines End 



WITH EACH BRAEKPOINT WILL BE STORED 
AT THESE BRKCNTx (1 THRU 5) . 



; AO WILL BE SAVED HERE TEMPORARILY. 

; DO WILL BE SAVED HERE TEMPORARILY. 

; THE STATUS REG. WILL BE SAVED HERE. 

; TEMP STORAGE FOR MAC CODE. 

; THIS IS FOR FIRST INSTRUCTION WHICH 
; WILL BE TRACED FOR SINGLE STEP . 

; WILL THE STEPS BE DISPLAYED OR NOT ?. 
; PRIVILAGE VIOLATION FLAG. 

; USER WANTS TO USE COPROCESSOR. 



*/ 
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APPENDIX D: SERIAL COMMUNICATION IN SOFTWARE 



RECEIVING 



Level four interrupt is used to sense the RS232 input. An interrupt is 
generated when a logic one is present at RS232 input . But before this 
happens, address lines A19 and A17 have to be made high, thus enabling the 
AND gate which produces the level four interrupt. 

In order to enable this interrupt, first the address lines A17 and A19 
are forced to be HIGH, which is done by JMP INTR_CHK+NEXTx, in RUART 
routine. But, since some amount of time is needed to acknowledge an 
interrupt, several NOP instructions are added following the JMP 
INTR_CHK+NEXTx instruction. This guarantees that previous address stay 
unchanged while the microprocessor executes these NOPs. By doing this, the 
address bits A17 and A19 are kept high enough for the interrupt to be 
acknowledged by the CPU . 



How incoming bits are sensed ? 

The time that CPU spends by executing the JMP INTR_CHK+NEXTx, and the 
following several NOP instructions can be considered as a sampling window. 
If an interrupt occurred during the sampling window, program execution is 
continued with the level four interrupt handler routine. This routine 
first forces the address lines A19 and A17 to zero, thus disabling the AND 
gate which senses the RS232 line. As a consequence, further interrupts are 
disabled . 

Following this instruction, routine clears register Dl. After RTE, 
instruction execution continues from where it was previously. Then 
register Dl, which is set to one before receiving each incoming bit, is 
tested. If its content is zero, this shows that a level four interrupt did 
occur, which means a logical zero is received from RS232 input. Otherwise, 
if Dl still contains a one, this means that a logical one is received. 



How incoming bytes are received ? 

The receiving routine, RUART, looping all the time, checks for the 
RS232 input. RS232 line, when it is idle, stays at high voltage level. 
After sensing the start bit, eight bits are received and shifted in to 
lower byte of D3 . The reception of that byte ends with the detection of 
the stop bits. If a frame error occurs during reception, RS232 input to 
the Macintosh is kept low for a while and the user is alerted. 
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More detailed information can be obtained from Appendix C. (Source 
code of ecb.asm) . 



TRANSMITTING 

ij 

SUART routine sends a byte which is in D3. In SUART, first by the 
instruction JSR SEND_ZER+DELAY1 , by sending a zero bit the start bit is 
sent. Here, DELAY1 subroutine provides 104.7 microseconds delay between 
the bits to be transmitted. Following the start bit, eight bits are sent 
which are the bits in the lower byte of D3 . JSR SEND_0NE+DELAY1 or 
SEND_ZER+DELAY1 is used in order to send a ONE or a ZERO bit . 

More detailed information can be obtained from Appendix C (Source code 
of ecb . asm) . 



I 
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APPENDIX E: IMPLEMENTATION OF SOFTWARE ABORT 



ABORT 

Abort is a very beneficial option to the user. About its 
implementation on the ECB: when the Abort button is pressed, a level six 
autovectored interrupt is generated. 

During the first design phasp of the debugger it was intended to 
support the Abort in software. If a long enough Break could be sent to the 
ECB, then this could be interpreted as a user intention for Abort. This 
idea did not work. Because when the user program enters in to an endless 
loop or just gets out of control (these two situations can occur right 
after Go menu) , since the Macintosh will still be waiting for information 
from the ECB (which will never come) , the Macintosh will be locked and 
there is no way to get out of Go menu and send a Break to the ECB. For 
this reason, the Abort option was decided to be implemented in hardware. 

At this point, the design idea was to make this interrupt, a level 
seven, non-maskable interrupt. But later it was noticed that it would not 
work. Because pressing the Abort button once, caused many interrupts, each 
non-maskable . To overcome this problem, using a debouncing circuit could 
be a choice, but the tradeoff was more hardware. For this reason a level 
six interrupt was found to be appropriate. In this way, when the Abort 
button is pressed once, it still creates many level six interrupts, but 
only the first one is processed and the rest is ignored. At the entry on 
the Abort handler routine, interrupts are disabled, so the interrupts 
caused by the bouncing of the Abort button is ignored. 
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APPENDIX F: OPERATING INSTRUCTIONS 



INSTRUCTIONS 



1- With Macintosh off, insert Disk "C Compiler" into Floppy Disk Slot. 

2- Turn on Macintosh. Macsbug is installed, Lightspeed C is started 
immediately . 

3- Now, you may select the project. Double-Click the project file: Tutor20 
pi. (Double-Click Tutor20 pi means; move the mouse so the arrow for the 
mouse is on the line with the name Tutor20 pi, and click the button on 
top of the mouse, twice, quickly.) 

On the upper right corner of the screen, you can see the files, contain! 
in this project. 

4- In order to be able to create your assembly language program, 
double-click on the file "test.c". 

5- Now, you may start editing your program. But, it is advisable to make 
test.c the only file you work on, saving other filejs, if they exist, 
using other file names. To save a copy of test.c as backup. c and then be 
able to modify test.c, drag File to Save A Copy As (Drag File to Save A 
Copy As... means, using the mouse, click button down on the "File" menu, 
hold the button down as mouse is moved down to "Save A Copy As..." and 
release the mouse.) 

Type the name of the new file (Actually, a copy of test.c), backup. c 
and hit carriage return. 

6- Do not alter any of the lines, unless told otherwise. User program area 
is clearly shown in test.c. User should type his program between the 
lines "*** USER PROGRAM ***" and "*** USER PROGRAM ENDS ***" . 

7- Labels begin with a sign, followed by digits, (You are not allowed t 

use labels @1, 02, 03, which are already defined and used by test.c 
program . ) 

Hexadecimal numbers begin with a "Ox" (Zero Eks) , followed by digits or 
a-f or A-F . 

Variables (e.g., i) are declared in C above the line "asm{", (e.g., int 

and are accessed using index addressing with address register A6 and a 
negative offset. 

8- Drag project to Run. Test.c will be compiled and the debugger will run. 
You should see Apple, File, Functions menus on the screen. 

9- If you want to utilize MC68881 Coprocessor, or if you want to have a 
hard copy of what is going to be displayed on the screen, or some other 
options; pull down Functions menu and click the mouse on Options menu. 
Here, you will see a button corresponding to each option. You can have 
any option "ON" by just clicking it (When it is darkened, that means you 
have that option, or vice versa) . Click "Quit" to get out of that menu. 
If you want to use Coprocessor instructions in your program, you have to 
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have the "Coprocessor" option at this step, before Downloading. You are 
not allowed to first Download and then select "Coprocessor" option. This 
will lock the system. 

10- Pull down Functions menu and click the mouse on Download option. This 
will download your program to the ECB . Your program will be loaded in RAM 
starting at 1000 (Hexadecimal) address. 

11- Now you need to select "Go" menu. The default Program Counter value is 
1000 Hex. You may change this address if you want to. 

A very important point needs to be explained. That is, if you are going 
to select "Goto" option within the "Go" menu, your program has to end 
with a TRAP #15 instruction, or if you're going to select "Call" option 
an RTS instruction should be at the end of your program. 



WHAT CAN YOU DO IN A PARTICULAR MENU ? 



When you pull down the Functions menu, you will see the following 
selections . 

01- Download 

02- Go 

03- Registers 

04- Floating Regs 

05- Memory Display 

06- Memory Write 

07- Opt ions 

08- Previous Screen 

09- Clear Screen 

10- Help 



DOWNLOAD 



Downloads the user program from the Macintosh to the ECB, at a Baud 
rate of 9600. After that, the current register values, whatever they were, 
are uploaded from the ECB. 

If Coprocessor will be used, that option should be selected in the Options 
menu, before clicking Download. 



A- GoTo/Call : 

There are two types of program execution, as far as the procedure is 
concerned. They are: 

1- Goto 

2- Call 
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The user as to end his program either with RTS or with TRAP #15, depenu 
on the situation. This was described above, at step 11. The purpose of 
"Call" is that, with this choice, the user can easily test and 
run his subroutines . 

B- Return to: 

User has choices about which menu to go after that part of execution 
of his program, the default return menu is "No Menu" where no menu 
displayed, instead the register values, and the instruction following 
the last executed instruction in a disassembled form are displayed. 
Clicking on "Return to", "Registers Menu" is selected, which simply 
displays the "Register Menu" . 

Clicking on "Return to" a second time, "Go Menu" is selected, which 
makes the same menu appear again. 

C- Breakpoints : 

User can set, upto five breakpoints. The "Clear All" option, clears 
all the breakpoints. Hitting the tab, the darkened spot passes through 
the breakcounts first, where user can enter the count he or she wants. 
This number can be in the range (0..9999). After Breakcounts, Breakpoi 
addresses can be entered, just by typing the desired address and hittif 
the tab. If no breakcount was entered for this breakpoint before, its 
value is set to one, automatically. 

D- Display Steps: 

If this option is made "ON", just by clicking it, every step taken 
during the program execution on the ECB is displayed on the Macintosh. 
This situation may be useful when the user sets any Breakcount to a vain, 
bigger than one, and still wants to see the outcome of every single ste 
If this option were not used, the information would be displayed after t> 
Breakpoint address is reached as many as Breakcount times. 

E- Cancel: 

Anything done during this Go Menu session is ignored. 

F- Go: 

A final step in Go Menu. Clicking "Go" will download the most updated 
register values, breakpoint information, and then the program execution 
will start . 



REGISTERS 



When selected displays MC68020 register information, interrupt leve. 
and condition codes. 

A- Registers : 

All the data, address and control registers are displayed. Any of 
these registers can be modified just by entering the desired content and 
hitting the tab. 
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B- Clear All: 

When clicked, clears all data registers, and all address registers 
except A7, which is the stack pointer, 

C- Active Stack Pointer: 

A7 entry shows the active stack pointer. Default is "User Stack Pointer* 

Clicking A7 once, switches to "Interrupt Stack Pointer" . Clicking A7 once 
again, switches to "Supervisor Stack Pointer". 

D- Condition Codes: 

Displayed as radio buttons, where darkened one means that bit is set. 
User can change condition code values either by clicking it, or by 
modifying the Status Register. 

E- Go: 

When clicked, does the same function as what it would do in "Go" menu. 
But there is a condition. The Registers menu should have been called by 
"Go" menu, which means that, in Go menu "Return to" field was "Registers 
menu** before the last clicking of Go. This option is provided just for 
presenting some ease to user. Because this way he does not need to go 
through "Go menu". If the above condition does not hold, clicking 
"Go" does not mean anything, nothing happens . 

F- Interrupt Level: 

Every clicking, increases the interrupt level by one. This field can 
also be changed by modifying Status Register. Since it will crash the 
system, the user is not allowed to set the Interrupt Level to a value 
greater than three. (Level four interrupt is used for establishing serial 
communication. If a higher level interrupt were allowed this could crash 
serial communication mechanism) . 

G- Quit: 

Simply quits the Registers menu. 



FLOATING REGS 



When selected, MC68881 Floating Point Register information, FPCR 
(Floating Point Control Register) , FPSR (Floating Point Status Register) , 
FPIAR (Floating Point Instruction Address Register) , condition codes, 
Exception Status/Enable byte are displayed. This menu can be selected only 
when Coprocessor option is turned On in the Options menu. 

Eight Floating Point Registers are displayed, each consisting of four 
fields. These fields are: Exponent, sign of exponent, mantissa, sign of 
mantissa. Each field is modified by the user separately. User may modify 
FPCR, FPSR, FPIAR, by typing the desired value and hitting the tab. User 
may also modify condition codes, or Exception Status/Enable bits by just 
clicking them. 
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A- Quit : 

Simply quits the Floating Regs menu. 
MEMORY DISPLAY 



The maximum number of bytes to be displayed at once is 500. 

A- From: 

The beginning address of memory display needs to be entered here, 
by just typing that address and hitting the tab. 

B- To : 

The ending address of memory display needs to be entered here, 
by just typing that address and hitting the tab. 

C- Size: 

Size is the number of bytes to displayed, which is automatically 
calculated and displayed ( size=f rom-to) . Entering any one of from 
or "to", and "size” will work as well. 

D- Disassemble: 

The memory is displayed in a disassembled format, one instruction per 
line . 

E- Cancel: 

Simply ignores that Memory Display session. 

F- Display : 

Clicking Display, causes the display of the desired memory locations. 



MEMORY WRITE 



When selected, user is able to modify any memory location. That 
memory location can be Byte, Word (two bytes) , or Longword (four 
bytes) in length. In case Increment /Decrement option is selected, 
"Location” is Incremented/Decremented by one, two, or four, according to 
the data length being modified. 

When ”No change” is selected, "Location” is not modified, so following 
writes occur to the same memory location. 

A- Location: 

The address of the memory location to be modified. User can enter the 
address by just typing it and then hitting the tab. 

B- Contents: 

Here, user has to type the new content of that memory location. The 
memory write is done only, when the user hits the tab. 
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C- Verify: 

When selected, a memory write to that location is done, following 
that, a memory read is performed from the same memory location. This 
value is sent back to the Macintosh, where it is compared against the 
desired content, by the debugger. If an error is detected, user is alerted 

D- Quit: 

Simply quits the Memory Write menu. 



OPTIONS 



When this menu is selected four options will be displayed. Clicking 
any of these options, will toggle it (ie., turning it ON and OFF). The 
following describes what is done when any particular option is selected. 



A- Hardcopy: 

Whatever seen on the screen is also sent to a serial printer. This 
option might be useful especially when user dumps large number of bytes 
of memory. 

B- Coprocessor: 

If user wants to access Coprocessor this option should be selected 
before Downloading. Turning this option on enables the "Floating Regs" 
menu, which would not be accessible by the user, otherwise. 

C- Refresh Screen: 

Following a Quit from any menu, instead of displaying a blank screen, 
a screenful information is displayed. This information is obtained from a 
circular queue, which contains the last displays on the screen. 

D- Experienced: 

If the user is not experienced he is not allowed to change interrupt 
levels . 



PREVIOUS SCREEN 



When 
printer . 


selected, the last 
In a sense, it is 


screenful information is sent to the serial 
like a hardcopy of Refresh Screen. 


CLEAR SCREEN 






When 


selected. 


clears the screen. 


HELP 









Displays help information. 
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APPENDIX G: SAMPLE ASSEMBLY LANGUAGE PROGRAMS 



A- Sample Program #1 

The following program, copies the elements of ARRAY_A to ARRAY_B . 
Each element is one byte long. 

i- Source Code 



** Sample Program #1 ** 



; Label 


Opcode 


Operand 


/Field 


Field 


Field 


ARRAYA: 


BLKB 


5 


ARRAYB : 


BLKB 


5 


•ASSUME 


ARRAY_A 


HAS SOME VALUES 


/ 


LEA 


ARRAYA, AO 




LEA 


ARRAYB, A1 




MOVE .B 


#5, DO 


LOOP : 


MOVE . B 


(AO) +, (Al) + 




SUB.B 


#1 , DO 




CMP .B 


#0, DO 


DONE : 


BNE. S 


LOOP 



Comment 

Field 

/DEFINE ARRAY_A 
/DEFINE ARRAY B 



/AO POINTS TO ARRAY_A 

/ A1 POINTS TO ARRAY_B 

/FIVE ELEMENTS TO BE COPIED 

/COPY ELEMENT OF A TO ELEMENT OF B 

/DECREMENT THE COUNTER 

/FIVE OF THEM COPIED ?.. 

/NO... COPY ONE MORE. 
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ii- Listing 



2500 A . D . 68000 Macro Assembler - Version 4.03a 



Input Filename : samplel.asm 
Output Filename : samplel.obj 



f 


** Sample Program #1 ** 

; Label 


Opcode 


Operand 


Comment 




; Field 


Field 


Field 


Field 



00000000 

00000005 



; ASSUME ARRAY A HAS SOME 



r 








0000000A 


41F9 


0000 


0000 


00000010 


43F9 


0000 


0005 


00000016 


103C 


0005 




0000001A 


12D8 






0000001C 


5300 






0000001E 


ocoo 


0000 




00000022 

00000024 


66F6 







ARRAYA : BLKB 5 

ARRAYB : BLKB 5 

VALUES 

LEA ARRAYA, A0 

LEA ARRAYB, A1 

MOVE . B #5, DO 

LOOP: MOVE . B (A0)+,(A1) 

SUB.B #1 , DO 
CMP.B #0, DO 
BNE . S LOOP 

DONE : 



; DEFINE ARRAY_A 
; DEFINE ARRAY B 



; A0 POINTS TO ARRAY_A 
;A1 POINTS TO ARRAY_B 
; FIVE ELEMENTS TO BE 
; COPIED 

; COPY ELEMENT OF A TO 
/ELEMENT OF B 
/FIVE OF THEM COPIED ? 
/NO.. COPY ONE MORE. 



Lines Assembled : 23 



Assembly Errors : 



0 



B. Sample Program #2 



Source Code 



/** Sample2.asm **/ 

The following program is to give an idea about the usage 
of Coprocessor commands. Here the instructions are given 
in their open form, the mnemonics of these commands are 
given in the comment field. 



DC. W 


$F200 


; FSINCOS . X FP4,FP5,FP6 


DC . W 


$12B6 


;FP4 <- X (Prior to execution) 
; FP5 <- SINE (X) , 

; FP6 <- COSINE (X) 


DC.W 


$F23C 


; FMOVE . L #6,FP6 


DC . W 


$4300 


f 


DC.W 


$0000 


r 


DC.W 


$0006 


r 


MOVE .L 


#2, D6 


r 


DC.W 


$F20 6 


; FADD . L D6,FP6 


DC.W 


$4322 


r 
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